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ABSTRACT 


A timeshared microcomputer monitor for Intel BN8DO 
microprocessor systems development has been described. 
Running on the Sycor 440 Clustered Terminal Processina 
System, the monitor provides a virtual environment comoosed 
of a console device, eight floopy disk drives, and an 8980 
mrcroDrocessor for up to four concurrent users. Virtual 
floppy disk files on a five meaqabvyte movadle-head disk 
orovide the system's oprimary auxiliary storaae medium. 
Three different levels of access protection are available 
for these virtual flopny disk images. A command lanquagqe 
processor has been included to support on-line modification 
of the virtual environment. System recovery in the event of 
a hardware or software failure is also supported by the 
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lee INTROOUECTION 


A. BACKGROUND 


In the summer of 1976 the Comnuter Science Denartment at 
the Naval Postgraduate School (NPS) acquired a Sycor Model 
440 Clustered Terminal Processing Systen for use in the NFS 
microcomputer lahoratory. The Sycor 440 utilizes an Intel 
8080 LSI chip as the CPU of a special purpose microcomputer 
system designed primarily for data entry applications. In 
addition to the 8080 CPI, the 440 hardware configuration 
includes a five meaabyte movablerhead disk, 64K of random 
access memory (RAM), a cassette tape drives, anda four displav 
terminals consisting of a keyboard and cathode ray tuoe 
(CRT) disolay device. Two owerionheral devices are also 
provided: a serial printer and=an RS-232 commatihle 
aSyncronous Communication interface. 

As part of the Model 440 System, Sycor, Inc. suoplied a 
comprehensive package of system software. Most of this 
software was desianed to support applications in the data 
entry field which comprised the Sycor 4400's) primary 
marketing taraet. In addition to the basic data entry 
package Sycor also supnlied several orograms which exercise 
the 440's capabilities more fully. These included F) 
resident COBOL compiler? a cross-comoiler for PLMR, 4 


relocatable version of the system develooment lanaquage PL/4; 








and a linking loader which combines relocatable segments of 
COBOL or PLMR object code into an executable eee module. 

Prior to the arrival of the Sycor 440, the facilities 
available in the NPS microcomnuter laboratory consisted 
primarily of two INTELLEC 8/™OD 80 microcomputer systems 
designed for use in the develooment of software for tne 
Inte] 8080 chip processors. Roth of these systems support 
the CP/M (Control Program for M“ijcrocomnuters) operatina 
system [2]. CP/M provides many software development tools 
including a context editor, dynamic debuaaer, and assembler 
for the generation of 8080 object code [5-6]. However, CP/M 
oprovides only a single disnolay terminal interface, ana uses 
floppy disks as its auxiliary storage medium. 

Nhile the Svcor 440 made ae sianificant and welcome 
addition to the hardware complement of the “IFS microcomouter 
laboratory, a great deal of effort was required to intearate 
the new system into the current laboratory configuration and 
to ensure that maximum benefit could be derived from the new 
Beqguisition. The following paraaqraohs summarize the aoals 


and objectives of this effort. 


B. GOALS AND OBJECTIVES 


The primary goal of the Sycor 440 integration effort was 
to complete an investiaation of the desian and architecture 
of the available hardware confiquration, and the 
Capabilities of the existing software with an eye towards 


the most feasible use of the Sycor 440 system in support o f 


10 





Boemmecgtortl al and research activities of the NPS 
microcomputer laboratory. Tt was felt that the Sycor 449 
hardware had the canability to suoport numerous applications 
more generalized than the data entry function it was 
designed and programmed to accomolish. In particular, the 
cluster of four terminals sSuagqested the development of a 
timeshared environment to support un to four simultaneous 
users on a single Sycor 440. Such a timeshared system woulad 
provide an effective increase from two to six 8080 CPI!'s5 
available for use in the microcomouter laboratory. This 
increase would ao a lona way towards meetina the increased 
demand Lor microcomputer research and develoroment 


macilitites at NPS. 


oO 


A secondary goal of the 440 integration effort was ft 
ensure that a well-defined, comoatible interface was 
established between the current Jabdoratorv conficuration and 
the newly acauired Sycor system. The objective here was 
twofold: first, to achieve hardware comoatibility between 
the Sycor 440 and other computer systems available in the 
labs and secondly to achieve software compatibility between 
the Sycor 440 and other systems which utilize the 8080 CPU 
emi. 

Achieving hardware compatibility denended on tailoring 
the G40's asyncronous communication interface to the 
requirements of existina systems, oarticularly the PDP-#11/50 
which served as the central Ymeertace Point fer iwnter= 
processor communication. It was anticinated that this 


hardware interface could be easily established without 
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modification of the Sycor system. 

Achieving software compatibility was viewed as a much 
more difficult objective. This would involve ceveloping an 
environment which could supoort software that had alreaay 
been written for other systems utilizing the 8080 CPU chip. 
For proarams develooned at NPS this meant that the Svcor 449 
environment must support a suitably modified version of 


e277 MM. 


See Pe ROUSLEM OEFINITTON 


The thesis oroject which eventually evolved from the 
Sycor 440 integration effort was develoorment of the 
Microcomputer Timeshared System (MTS), a software monitor 
for the Sycor 440 designed to support microcomputer system 
develooment. The possibility of providina a virtual machine 
environment was investiaated, including the incorporation of 
virtual device interfaces where practical. The Sycor 440 
file system was to be utilized where possible in order to 
reduce development timer avoid duplication oO f system 
facilitiesr and allow the Sycor operating system to be usea. 
The mansmachine interface at the terminals was to be simple, 
flexible, convenient and incorsorate the best features of 
existing interactive systems at NPS. This system was to 
provide a suitable interface for user proarams and/or 
operating systems to enable utilization of the Svcor 440 
Storage and peripheral devices by these proarams. 


It was realized from. the project's inception that a 


We 





microcomputer timesharina system 1s ideally imolemented 
through multiprocessing rather than multiorogrammina. The 
use of LSI technoloay has made the CPU cost only a minor 
factor in the total cost of a microcomputer system. A major 
objective in the development of MTS was finding an 
efficient, practical method of sharing hardware resources 
Samer than tne CPU. The unit costs of memory, fixed disks. 
orintersr terminalssr and other oerioherals are major factors 
in total system cost = the sharina of these resources was 
the primary consideration. 

To achieve the project objectives, a Survey of 
timesharing concepts and implementations was conducted. 
Particular attention was devoted to the current desiaqn= and 
implementation techniques of virtual machine timesharina 
systems to determine those features which could be included 
in MTS. This research included studv of timesharing system 
techniques associatea with processor managements, memory 
management, and device management. Those factors which 


influenced the desiaqn of MTS are discussed in the next 


chapter. 
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ieee ohar ING CONEEPTS 


The concept of timesharing computer system resources was 
first demonstrated in the early 1960's. Since that time, 
growth in the aoplication of timesharing conceots to many 
classes of system opverational]l requirements and desians has 
occurred rapidliv. The timesharing field has matured now to 
the point that one can recognize many common design coals 
and implementation concepts being used in a wide varietv of 
systems. General characteristics of timesharing svstems, 
methods o f imolementation, and resource management 
techniques were researched in order to iaentify concents 


which could be apnolied to a microcomputer timeshared system. 


Pe chiARACTERISTICS OF TFIMESHARING SYSTEMS 
Z 


One of the original motivations for development of early 
timesharinq systems was to obtain more efficient use of a 


computer system's expensive operating time and resources 


than was beina realized through batch environments. 
Interactive or conversational timesharina imposes the 
additional burden of keepina the “user" busy, as well as the 
hardware. System resoonse time must be aVeeaee iy 


orooortional to the user's expectations. Taese tasks whiten 
the user perceives as Simole must result in raoid response 


from the system. For examoler character echoing or inout 
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line editing miaqht be expected to require no apnreciable 
delay. On the other hand, the user would expect a large 
proaqram assembly or comoilation to take more time and 
therefore some delay would be acceptable. 

Another imoortant consideration is that of System 
protection. The independence of concurrently executina 
processes must be maintained. Protection of the system from 
user processes, as well as user processes from eacn other, 
must be considered. Protection of system resources such as 
the file system and I/0 devices must be maintained. Svsten 
protection may be implemented at many levelS, ovdoth In 
hardware and software. Within the software system, 
protection information for specific resources 18 normally 
maintained in various tables associated with these resources 
(16). Hardware mechanisms can he provided to support svsten 
protection. For example, the use of hound reaisters to trao 
invalid memory references could be implemented [1091]. The 
operating system can be insulated from the user processes by 
providing separate system states (e.g. system and user) or 
other lockout mechanisms to identify when the system 15s 
executing 1n the system rather than the user state. 

Related to system protection are the imnmortant concepts 
of system reliability and recoverability. The user exvects 
the system to onerate reliably and if a failure skould 
occur, to recover as smoothly and rapidly as voossible. That 
1S, recovery should preserve the user data and = proarams 
which were not related to the failure. The goal in 


designing recovery orocedures 18 to minimize the impact of 
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the recovery mechanism on the system when it 1S operating 
normally, yet ensure smooth and rapid recovery should a 


failure occur. 


B. VIRTUAL MACHINES 


In recent years, the multiolexing of computer system 
resources has been accomplished in some implementations by 
Utilizing the Virtual Machine Monitor (VMM) concent. A VIM 
1S a special form of operating System that multiplexes only 
the ohysical resources amona the users = no other functional 
enhancements are oprovideo [10}. The concept 318 to oroduce 
the effect of multiole hare machines which are identical to 
the bare machine on which the VMM runs. Thus, each user can 
select the operatino system of his choice to run on his 


"mNrivate” comouter. 


1. Virtual Devices 
Under the VMM conceot,y, al) I/0 is simulated. When a 
user program attempts to execute an I/0 instructions, control 
is tranferred to the VMM via an interruct. There are 
normally three different situations which may arise: 

(1) If the I/0 device physically exists and has been 
assigned to that user program, the instruction may be 
executed immediately without modification. 

(2) If a similar T/0 device exists, the I/Q commands) are 
approoriately modified and then executed. OG 
examole,r, many small] disks may be simulated by using 


separate areas of a sinale large disk. 
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(3) Certain devices, such as orinters and card readers, 
may be extensively simulated using techniques such as 


snoolina (see Device Management) [10]. 


ec. Hardware Requirements 
The implementation of a oractical virtual machine 
monitor requires that the host computer have certain 
hardware characteristics: 

(1) The instruction set should contain hoth privileaed and 
non=privileaed instructions. 

(2) The host computer must have some wav of distingquishina 
between the two types of instructions. That 1S, the 
VMM must be made aware of any attempt by a user's 
proaram to execute a orivileaqed instruction, or change 
its mode of oneration. Fhis 1S normally satisfied ov 
establishing two separate states of eater System 
and user. 

(3) The VMM must be protected from the user proarams, i.e. 
the memory assianed to the VMM must be protected in 
both read and write mode. 

(4) The user programs must be protected or isolated from 
each other. This means that memory or input/outout 
devices assianed to one user orogram must be 
inaccessible from any other user proaram, unless 
proper safeguards are provided. Tsolation and 
protection of memory areas can be accomolished by some 
form of memory crotection or an address translation 


scheme [11]. 
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A machine which satisfies these requirements can ensure the 


degree of control by the VMM necessary to avoid excessive 


overhead in the translation or simulation process. 


C. PROCESSOR MANAGEMENT 


The task of processor manaaement in the multiorogrammina 
environment of a timeshared system involves the schedulina 
and managing of multiole mrocesses in different stages of 
gompoletion. A process may exist in one of three states: 
(1) runninas, (2) ready to execute, or (3) blocked pending 
the comoletion of I/0 or some other process. 

A process 18S in the running state if it iS executina 
mast ructions. The ready to execute (ready) state describes 
a process that is ready for execution but not currently 
FUANING due to the unavailability of the CPU. A blocked 
process 1S one which cannot run until some signal arrives to 
unblock it. These unblockina signals are referred to as 
"wake-up" signals and change the status of a orocess’ from 
blocked to the ready state. Such signals can come from many 
sources: System orocessesys user processes, hardware 
interrupts, such as terminal communications eauipment, a 
timers or completion of a disk I/O operation [16]. 

Since there 1S no Quarantee that a process will hlock 
itself, timesharing systemS must orovide a mechanism for 
regaining control of the CPU from the currently runnina 
process in order to provide all users with adequate resoonse 


times. The lenath of time which a orocess 1S allowed to run 





before it is blocked is called a auantum or a_timeslice. 
The auantum size is one of the most important parameters of 
a schedulina algorithm. Tt mav be fixed or veriable, 
depending on other parameters such as oroncess sizer, Orocess 
prioritys or length of time the process last eran. Setting 
quantum lengths is a function of the system characteristics 
and workloads, and can be determined only by experiment with 


the actual system or by simulation [16]. 


D. MEMORY MANAGEMENT 


Memory management involves the memory allocation and 
Swapping functions. This -aneiudes (‘keeoina track of the 
virtual memory space of each orocess in the svstem, whether 
if 315 IN main memoryr, auxiliary storaae, or both. The 
comolexity of this task may range from maintainina 
relatively few tables in support of a single conticuous 
allocation scheme, to the maintaining of many memory 
allocation data structures to supmort a virtual memory 
implementation using demande-paqina or segmented memory 
management schemes [10,16]. 

Swaoping can be defined as moving processes between main 
memory and auxiliary storaqe in order to multiolex main 
memory. Swapping time is the time it takes to complete a 
Swapping task. The multiproaramming of processes In a 
timeshared system results in the Swapping time having a 
major impact on the system's response time. There are two 


Important oarameters of an auxiliary storage device that 
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affect Swaponing times: 

(1) The average length of time required to access the 
required block of information. This is called the 
averaae access time. 

(2) The time required to transfer the block to and from 
main memory. This is inversely proportional to the 
transfer rate [16]. 

Early timesharing systems such as the Compatible 
TimeSharing System (CTSS) used very simple allocation and 
Swapping strategies [101]. No attemnt was made to overlao 
the execution of one orocess with the swanppina of another. 
Only one complete process resided in memory at once and all 
processes were loaded relative to a constant fixed location. 
That iS, no dynamic relocation was used because no dynamic 


relocation hardware was available on these early systems. 


E. DEVICE MANAGEMENT 


Device manaacement involves keeping track of the aevice 
resources, allocatine the device resources to a process, 
initiating the I/0 operation and reclaiming the resource (in 
most cases the I/0 terminates automatically). Devices fall 
into two general cateaories?: 

(1) Dedicated - those devices which are most efficiently 
assigned to one user for aaiven time periods, even 
though the user may not be able to utilize the aevice 
continuously. In this category are tape drives, 


printers, and card eaquioment. 





(2) Sharable = those devices which, while allowing access 
to only one crocess at a time, can rapidly comolete 
their service for individual orocesses and be quickly 
Switched to service requests of other orocesses. In 
this cateaqory are such online auxiliary storage units 
as drums, disks, and data cells [16]. 

The operation of some dedicated devices may be simulated 
to provide more flexibility and improved responsiveness to 
user requests. For example, the oneration of orinting a file 
om the printer could be transformed into a "write" onto a 
disk (a virtual printer) where at some later time a second 
routine would cony the information onto the actual printer. 
This process is called spooling, and allows (1) dedicated 
devices to be shared, hence, more flexibility in schedulina 
these devices; (2) more ee noe in job schedulings and 


(3) improved synchronization of the soneed of the device and 


the arrival rate of requests for that device [10]. 
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Flin SOYCGR 440 HARDWARE DESCRIPTION 


The Sycor 440 Clustered Terminal Processince System at 
NPS is composed of a control unit containino a cassette tape 
drive, four display terminals, a Centronix serial printer, 
and a Sycor Model 340 Communications Terminal. 

Hpewcomtrol unit is the heart of the 440 system. 
Contained within a waistshiah cabinet are random and contro} 
logic including two 8980 chips, 64K of rancom access memnorv 
CRAM), interfaces for all oerioheral devices, ae five 
megabyte disk, as well as the cassette tane drive. 

amemotetne two 8080 chios located in the 440 control 
unit serves as the system CPU. The 8080 instruction set 
consists of 7/78 data transfer, SURRINERICE LOCiVGa iyo oO Gage his 
stack, I/0, and machine control instructions (8). Tne Sycor 
440 provides a comprehensive set of orioritized interruots 
including a timer, peripheral device, and auxiliary storage 
device interrupts. Control information and data are passed 
between the 8080 CPU and peripheral devices through the [/0 
ports (referred to as latches in Sycor literature) provided 
got ne 8080 chin. 

The second 8080 chio found in the control unit acts as a 
@emtrolier for the miniedisk. The minisdisk is a sinale 
platter, movable head disk blocked into Sie bvte sectors. 
There are 800 tracks on the disk with 13 sectors per track. 


Data transfer between RAM and the mini-disk Ss via direct 
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memory access (DMA). The minisdisk controller communicates 
with the host 8080 CPU throuah a 13 byte aisk control block 
(DCB) located at a fixed location in memory. 

Peripherals sSupoorted by the Sycor 440 system include 
Synchronous and asynchronous communication deviceSsr up to 
eight display terminals, serial and line printers, and card 
readers. The NPS configuration has four display terminals 
consisting of a typewriters-like kevboard and CRI display 
device. Each terminal displays a OMA image of a 576 byte 
terminal buffer located in RAM, Keyboara input 1S 
accomplished bv software translation of a keyboard matrix 
code into the corresoondina ASCIT character code. Or 
hardcopy outout the NPS 440 includes a Centronix serial 
matrix orinter. 

Several different auxiliary storaqe devices may be 
attached to the Sycor 440 in addition to the minisdisk. 
These include magnetic taoe drives, cassette tane drives, 
ame floppy disk drives. The NPS confiauration includes 2 
cassette tape drive located in the control unit. This drive 
provides compatibility between the Sycor 44U svstem and the 
Model 340 debuagaer. 

The Model 340 Communications Terminal is a comnlete 
system in its own right which is marketed by Sycor for 
remote job entry (RJE) apolications (15). When utilized as 
a hardware debuaqger, the 340 is auaqmented with 4K of PA™ and 
@ backplane couolina to a soecial interface board in the 440 
control unit. The 340 debuqaer is provided with a software 


package which includes orovisitons for loading ana dumrpina 
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hex format program files hetween cassette tape and 440) RAM, 
examination and modification of tndividual locations in 440 
memoryys insertina breakpoints and traps in proarams 
executing on the 440, and single=-steopina through a program 
executing one instruction at atime (15). 
There are several hardware characteristics of the Sycor 

440 system which strongly influenced the implementation of 
MTS. The most imoortant of these are: 

C1) 8080 CPU architecture 

(2) terminal desian 

(3) miniw-disk interface 

(4) sinalew-state CPU 

(5) lack of memory crotection 
The impact which each characteristic had on the destan_ and 
mmolementation of TS is covered tn chapters IV and V. For 
a more detailed Grsews S71 on of SVC Om G40 hardware 


characteristics see Ref. 1. 
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Ive MTS PESTGN 


MTS was developed in order to integrate the Sycor 440 
into the tutorial and research activities at NPS. The 
original problem definition given in section I.C provided 
genera] guidelines for aCCOMO ISH Ina mth iS er ob)ect i1ve. 
Restated brieflysr they were: 

(1) MTS was to support a suitably modified version of CP/M 
in order to provide compatibility with existina 
software develooment facilities. 

PeoeMIS was to utilize features of the Sycor operatina 
System, notadiy the Sycor file system, wherever 
possible in order to reduce develonoment time, avoid 
duplication o f facilitiesr, and allow the Sycor 
operating system to be used. 

(3) MTS was to provide a manemachine interface at the 
terminals which was simple, flexible, convenient, and 
incorporated the best features of existina interactive 
systems at NPS. 

The functions performed by an onerating system may be 
divided into the four major cateaqories of processor 
management, memory management, file management, and device 
management E10}. The aeneral quidelines mentioned above 
effectively eliminated file management from consideration in 
the design of MTS. At the same time, the selection of CP/M 


as the operating system hosted by MTS provided a fami}1ar- 
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well-defined model] to use in determinina the operational 
requirements of the system. 

The following paragraphs describe the final desiqn 
adopted for the Microcomouter Timeshared System from four 
different points of view correspondina to the four major 


interfaces which can be identified between MTS and its 


operating environment. The internal view covers the 
functiona!] components o f the system and their 
Iinterdeovendencies. The external view deals with rhe 


relationshio between MTS and the Sycor 440 operating system, 
The MTS environment as seen by a user proaram is described 
in the user orogramr view. The last of the fours, terminal 
user view, describes the interface hetween a terminal user 
and MTS, and the command processor which oridges this 


interface. 


A. INTERNAL VIEW 


1. VMM Concept 

MTS was oriainally envisioned as a software 
interface between the bare Sycor 440 machine and up to four 
user tasks executing concurrently. In order to maintain 
compatibility between the Sycor 440/MTS system and existing 
NPS microcomputer development facilities, each user. task 
would be orovided with an onerating environment identical to 
that found on the INTELLEC &8/MOD RO system. 

It was recoanized that the Virtual Machine Monitor 


Gonceot orovided the simolest ano most eleaqant means of 
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implementing such a software interface. A oroperly aesigned 
VMM could utilize the miniedisk included in the Sycor 440 
hardware configuration to simulate the operation of multiple 
floppy disk drives and provide each user with a dedicated 
virtual printer throuch snooling. Since the INTELLEC 8 and 
Sycor 440 microprocessors are both hased on the Intel 8089 
CPU chip, the machine lanquage instruction sets of the two 
are identical and interpretive execution would rot. oe 
necessary. The virtual operating environment viewed hy a 
user task would be the same as that found on the INTELLEC 
eeOO 80. Additionally. the monitor itself would be 
invisible to the user. 

While the VMM concent provided the ideal solution in 
theory, there were several hardware Jimitations which 
precluded its implemention. The discussion of the YMM 
concept in chapter TI lists four hardware characteristics of 
the host computer necessary to imolement a oractical virtual 
machine monitor. These four characteristics are essential 
NM Providing the reliabilitv, intearityvy, and protection 
required in a timesharing system. Unfortunately, the Intel 
8080 chip processors satisfy none of these requirements. 
The 8080 is a single state CPU. No distinction exists 
between system and user modes of operations consequently, 
there is no need to orovide both privileced and non- 
Brivileaed instructions in the machine's instruction set. 
This makes it impossible on the 8080 to trap [I/O 
instructions executed by a user task, and means that all I[/0 


devices are accessible to whichever task currently controls 
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ene CFU, 

A more serious problem is the lack of memorv 
erotection. The 8080 provides neither bound reaisters nor 
address translation hardware to detect memory references 
outside the user task's address soace. This shortcomina not 
only made the VMM conceot impractical, but had a noticeable 
impact on the design finally adopted. 

Perhaos the stronaest argument for using the VM” 
concept in imolementing a timesharing system 1s. the 
transparency of the VYM's oneration to user tasks. Since 
each user task is effectively FUNNING ON an independent hare 
machine, the VMM imnoses no restrictions on the user tveyond 
those imposed bv the machine's architecture. It was found 
necessary 1n the desian of MTS to comoensate for the 


imitations of the 8080 CPU bv imorosing certain restrictions 


on the freedom of user tasks. 


ce MTS Monitor Canceont 

MTS was designed to provide a timeshared, virtual 
8080 microorocessor environment for microcomonuter systems 
development. The term “virtual” is appropriate here because 
the user actually interfaces with MTS for many services 
normally provided by the hardware 1n a dedicated CPU 
environment. A software interface between user oroarams and 
the Sycor 440 hardware was necessary in order to allocate 
the hardware resources equitably and efficientiys, while at 
the same time satisfyina the service requirements of several 


competing user tasks. 
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The design of the MTS interface drew heavily on the 
VMM concept. MTS was designed to multiolex only the 
pohysical resources of the Sycor 440 system, i.e. memory, the 
CPU, auxiliary storage on the miniw-disk, terminals, and 
other peripheral I/0Q devices. No attempt was made to orovide 
additional functional enhancements such as a file system or 
software development tools. As stated in the aeneral 
guidelines for the croject, it was expected that MIS would 
support a suitably modified version of the CP/M operatina 
System, makina such enhancements redunagant. 

The NPS Sycor 440 hardware configuration did not 
include flopey disk as an auxiliary storage medium. Since 
floppy disks are oroviced ov the INTELLEC &/MOD 60 Systems, 
and are necessary toa run CP/M, it was decided to imolement 
virtual floopv disks and disk drives. Provisions were also 
made Hen excand the system to include virtual orinters,s, card 
readers, oaner=tane readers, and other dedicated I/0 devices 
at a later date. 

As a timesharina system, MTS is characterized by the 
following major features: 

(1) the use of Swapping to imolement multiproaramming 

(2) the use of interrupt driven processor management based 
on a round=robin scheduling algorithm 

(3) the use of virtual floooy disks as the orimaryv 
auxiliary storaae medium 

(4) the sharing of a single dedicated [1/0 device by 
multiole users. 


Each of these characteristics is discussed tn detail in this 
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and the following chacter. 


3. Memory Management 

The Sycor 440 provides 64K bytes of random access 
memory. Sliahtly over 3K bytes of this is required for 
terminal and cassette DMA buffers, a ROM hootstrap proaram, 
a miniwdisk control block, and interrunot processing. Tne 
decision was made that a minimum of 4AK contiauous hytes of 
memory would be made available to user tasks with tha 
remaining 13K bytes reserved for the resiaent portions of 
MTS. This estimate of the amount of memory reauired by MIS 
was based 1Nn part on the size of the CP/M operating svsten 
and was intentionally aenerous to vorovide sufficient memory 
for future growth and enhancement of MIS facilities. 

Once a decision had been made on the amount of 
memory available to user tasks it was necessary to select 
the optimum method of manaaing this memory. space. This 
decision also was stronaly influenced by hardware 
considerationse The Intel R080 CPU provides only ae sinale 
direct addressinaq mode. Since the Sycor 440 provides no 
address translation hardware, the more advanced memory 
management techniques such as paging and dynamic 
partitionina were infeasible. The only practical choices 
seemed to be swapping or a static partitionino scheme. 

The static cartition aeproach was considered 
carefully since it offered several advantages over swaponingd. 
Most importantly», a memory management technique which goes 


not involve data transfers between memory and auxiliary 
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storage would be much faster than SWAPDING. Stra tic 
partitioning offered the added advantage of simplicity. 
With all user proarams resident in memory it would not ne 
necessary to maintain tables showina the disk addresses of 
blocked or ready tasks. 

There was a single overriding factor which 
ultimately mandated the SeNect1 on o f SwapDINng. A 
timesharing system rust maintain the intearity of al 
concurrently executing tasks. Since the Sycor 440 provides 
no memory protection, this would be impossible if two or 
more tasks were resident in memory simultaneously. Not only 
would tt be impossible to orevent one task from accessina 
another, it would be impossible to detect the occurrence of 
a reference out of bounds. 

The use of swapping provides physical as well as 
nagica!) separation of all user tasks in the system. 
Associated with each of the four terminals 18 a mini-disk 
file used to store a memory image of that terminal's current 
task when it is waiting for the CPU or blocked oendina some 
1/0 operation. At any qiven instant a task may reside on 
the mini-disk in its swan file or in memory, but at no time 
can two or more tasks be resident in memory simultaneously. 

Swaopina also makes available to each task tne 
entire 4&K user area of memory as originally planned. Even 
though few users will ever write a sinale proaram which 
requires the entire 48K bytes, the additional memory does 
enhance the operation of CP/M develooment tools such as the 


text editor by allowing Jlaraer buffers and fewer disk 
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accesses. 

While the incorporation of swaoping into MTS. did 
solve the problem of maintaining task integrityvr it also had 
the undesirable side effect of makina the mini-disk aata 
transfer rate the limiting factor in system responsiveness. 
Based on informal timing fiaures provided by Sycor, it was 
estimated that as  lonq as six seconds may be required 
between timeslices to handle the swapoing of two 46K bvte 
tasks. This problem was recoanized early in the Gesian 
phase of develooment and solutions were sought In several 
areas. A partial sotutiton to the oroblem is offered hy an 
improved mini-disk controller under development at Syeor ) as 
this was written. Preliminary tests have shown that this 
improved controller will imorove the miniedisk transfer rate 
by a factor of from three and one-half to four over its 
present value. 

Several features have been included in the MIS 
design to minimize the delay inherent in swapoina. For 
example, the system default size was limited to 16K bytes in 
an effort to reduce the size of the memory imace which must 
be transferred to the mini-disk. A user can snecify a 
larger memory size if required, but, in the absence of an 
explicit reauest for more memory, 16K bytes 1S assumed. 
Consideration was also given to minimizing the freauency of 
memory image transfers. The scheduler was desianed to deter 
Swapping until it aetermined that a different memory image 
was required to continue processing. As an i)lustration, 


consider the case of a single task active on the system. If 
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swappina is not deferred, this sinale task will constantly 
thrash back and forth between memory and the minisdisk. By 
deferring each swap until it is absolutely necessary, the 
overhead due to Swanpinga becomes roughly proportional to the 


number of active tasksS minuS Ones, or zero for a Sinale task. 


4. Processor Management 

An assumption basic to the entire MTS develooment 
effort was that MIS would Support microcomouter systems 
development. This assumption implies that at any one. time 
some of the tasks active on the system may require 
relatively large amounts of CPU time while others may be 
blocked oendina terminal I/0. In order to ensure that the 
CPU resource is allocated fairly to al] active tasks it was 
decided to implement an interrupt driven task scheauler.,. 
Each task 1s allocated the CPU for a fixed interval of time 
called a timeslice. A task retains control of the CPU until 
@ haraware timer generates an interrupt signaling the 
expiration of the task's timeslice. The timer interruct 
handler then transfers control to the task scheduler to 
select a new task for execution. 

Notice that interrupt processing is carried out 
independently of task scheduling. This could cause a 
problem if a timer interrupt Should occur while system code 
1S oeIng executed. The task currently resiging in memory 
would be Swapped out reaardiess of its status. This coroblem 
was resolved by desianino MTS to set a software lock each 


time it iS entered. The timer interrupt handler checks this 
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lock whenever a timeslice expires and suporesses SHaOD IAG 


until the lockout condition has been cleared. 


5e Virtual Floory Disks 

The MTS virtual floppy disk drive provides auxiliary 
Storage for user proarams on virtual floopy disks. These 
simulated hard=sectored disks have 128 bytes per sector, 26 
sectors per track, and a maximum number of tracks determined 
by the size of the minisdisk file containino the disk imane. 
Each user has eight drives available for dedicated use. 

A virtual TMOpOY —Cisk=e swresiGes (Om va block of 
megrcally contiguous miniedisk sectors. tihere a physica!) 
miismpoy disk has a fixed capacity of 256K bytes, an MTS 
virtual disk may have any convenient size. MTS assumes that 
the disk image is made up of contiquous 1278 byte floppy disk 
sectors starting with track 0 sector 1, proceeding throuah 
mee co sectors of track 0 to track 1 sector lt, and $0 4=oOn 
memey) the virtual disk file is full. 

In order to access a virtual flopoy disk aeuser 
proqram must provide MTS with a complete sector address and 
the base address of a 128 byte DMA buffer in the user's 
memory space. This buffer derives its name from the nature 
of the data transfer operation: to the user program it 
aopears that data is transferred hetween his erroaram and the 
virtual floppy disk by direct memory access. 

A comolete sector address consists of a virtual 
drive number and the virtual disk sector and track numbers. 


With this information MTS can calculate the offset of the 
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addressed sector in the minisdisk file, validate tnat the 
addressed sector is within the file, and read the mini-disk 
sector into memory for transfer of the specified 128 bytes 
to the user's DMA buffer. 

The mapping function used to convert a complete 
sector address into a miniwdisk sector number is based on 
two facts: 

(1) The virtual floppy disk imaae is stored as a linear 
array with the sector number increasing most raoidiv 
and the track number increasing least rapidly. 

(2) The miniedisk file containing the virtual disk image 
foamamsimale conticuous Hlock of Sid byte sectors. 
Recognizing that the virtual disk imaae is stored as a 
linear array, the offset of any virtual disk sector in the 

file becomes 

VicwOrtsete= (row track.nrles sector.nar. 
Apolying the fact that each S!2 byte miniedisk sector may 
Somtain up to four virtua! floppy disk sectors, the file 
offset and position of the soecified virtual disk sector in 
the minin~disk buffer can now be calculated. 

file.offset = vs.offset DIV 4 

buf.pos = (vs.offset REM 4) *« 128 
where DIV and REM represent integer division and remainder 
respectively. Once the file offset is known, it 31s a simnle 
matter to add this value to the file's base sector number to 
complete the manpvpina. Similarty, tme buffer oositioen “is 
added to the mini-disk buffer's base address to find the 


current memory address of the specified virtual disk sector. 
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Gomer ce OlECTION AND RECOVERY 


Thus far in the discussion of MTS desian features tne 
topic of protection has already been encountered several 
times. It has been stated that the indenenaence of 
concurrently executing oerocesses must be maintained, and 
that orotection is also necessary for the operating svstem 
meself. Due to the architecture of the Sycor 449 system, a 
great deal of consideration was given to the protection 
oroblem as well as the related tonics of recovery and 


orivacy.e 


lies System 


MTS maintains the independence of concurrently 
executing user tasks hy enforcina physica! separation 
through SwaDDING. Tas techniaue 1s Oractlca) amg 


Paerective, but only deals with part of the protection 
problem. It is even more important that “MTS itself be 
protected from user tasks. Situations in which a user task 
may inadvertently overlay or modify pieces of system code 
must be avoided. At best this could lead to a system crash 
with varyina dearees of impact on all System users; at 
worst, MTS could continue processSina in an erratic fashion 
which causes irrecoverable damaqe to user files. The first 
Situation is immediately obvious to the system users: the 
second may ao undetected for just Jona enough to be 
catastrophic. 

The technique used to protect user tasks from one 


another cannot be apolied to this new oroblem.,. While it 1s 
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feasible to make some sections of the System such as the 
task scheduler or terminal command processor nonresident 
and swap them in as required, there are other system 
functions such as interrupt handlers which must he resident 
at all times. One oossible solution to the problem would be 


storing all system code jn read only memory with backup 


copies of all system data maintained on the minic-disk. ine 
simolicity of this aooroach makes yee aocealina, but 
nevertheless impractical for reasons discussed mn the 


external view of MIS eresented in section IV.C.1. 

After a great deal of consideration, AOw Oract teal, 
effective method of orovidina system orotection could be 
found which did not involve imposing an unacceotable amount 
@re orotection overhead on the system. In lieu of a 
protection scheme it was decided to incoroorate a recovery 
capability into the MIS design. It was felt that the 
ability to recover aracefully from occasional inadvertent 
system crashes would comoensate somewhat for tne tack of 
adequate system protection. 

Three different types of information were identified 
as being necesSary to the imolementation of a recovery 
capability. They were: 

(1) a copy of each user task's latest memory image, 

(2) coopies of all current values for system control 
variables and tables, 

(3) the identity of the task runnina when the crash 
occurred. 


The use of swapping made the first tyoe of information 
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readily available on the miniedisk with no additional action 
required. To this point in the design it had not been found 
necessary to save the values o f System control variables and 


tables anywhere other than in memorv. This deficiency was 


rectified by introducing the concept of a system state hlock 


0B). 

The SSB consists of a compact, contiquous data hlock 
in the system area of memory containing all control data 
defining the state of the system at each instant. The SSR 


includes information such as the status of each user task, 
virtual floopy disk assiaqnments, the location of each swan 
file on the minisdisk, the identity of the task currently 
meepocatec the CPU, and the protection attributes and 
locations of all virtual disk files. In orcer to have this 
information available should recovery be reauireds, the Sok 
iS copied to the recovery file whenever the state of the 
Svstem chanaes. 

Taken together, the four swap files and the recovery 
file contain sufficient information to restore narmal 
execution after a system crash. The third item required for 
recovery, the identity of the task causina the crash, is 
needed to delete the faulty task from the svstem. The swan 
file for this task contains a duplicate of the memorv imaae 
which has just caused the system failure. If this same task 
were reloaded, another system crash would Jikely occur, 

One tinal point must he mentioned to complete. the 
discussion oO f system protections, and that 1S access 


Erotection. Most general puroose timesharing svstems employ 
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some type of code to identify individual or group users of 
the system. This code may be used in the collection of 
terization or accounting statisticsr or simoly to identify 
authorized users of the system. It was decided that the 
access protection provided hy such a code is not a necesSary 
requirement for MTS. The NPS microcomouter laboratory has 
generally followed an open door policy which nermits anyone 
with an interest In microcomputers to use the available 
facilities. Conforming to the spirit of ftnis open lab 


Sovey, access orotection is not imolemented in MTS. 


eee Virtual Floopy Disks 

The protection issue surfacea for the third time in 
the imolementation of virtual TULOGEY 98015 <S ic eee hh S 
Somtext, protection imolies privacy and security for virtua! 
floppy disk files. 

From the viewcoint of privacy and security of data, 
floppy disks orovide an auxiliary storace medium surpassed 
by few others. The ohysical disk is small in size and 
convenient to carry or store, vet provides a storaGge 
capacity of 256 kilobytes, equivalent to 1.6 card sleeves. 
when an individual finishes an operating session on a svstem 
equipped with floppy disk drives, he need only physically 
remove the disk from the drive to provide whatever physical 
protection the contents merit. 

ipeavircual floooy disks Y“orcvidedc by MTS do not 
afford the same dearee of orivacy or securitv as a ehysical 


e@isk. With the Sycor 440 hardware confiaquration which 
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existed when this was written, it was not possible to copy a 
virtual floppy disk image onto a ophysical disKx_ for 
safekeeping. 

In order to provide a limited degree of protection 
for virtual floppy disks it was decided to orovide three 
different protection attributes for virtual floopy disk 
files: 

(1) no orotection = unlimited access for read or write 

(2) restricted = unlimited access for read onlys write 
access only if the file's protection key is known 

(3) protected = read and write access only if the file’s 
protection key is known. 

The first ootion, no protection, apeclies to seratch 
disks orovidead for temporary storaqae or work snmace. Such 
files should he available to any user aS reauired. Tne 
restricted attribute allows the owner of a aiven virtual 
disk file to make the contents of the file available to 
others on a read only basis. This level of protection would 
apply to the system disk containina the CP/M operatina 
system. The protected attribute provides complete 
protection for a virtual disk file. No one other than the 
file's owner or someone designated by the owner can access 
the file either to read or write. 

Since MTS does not reauire user identification 
codes, the orotection kev feature was adooted to identify 
the owner of a virtual disk fiie. A orotection key mav be 
any combination of zero to four ASCII characters associated 


with a virtual disk file when the restricted or orotected 
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attribute 18 set. The same protection key must be | suoplied 
by a user attemptina to write to a restricted file or read 


and write to a worotected file. 


C. EXTERNAL VIEW 


When the Sycor 440 Clustered Terminal Processina System 
was delivered to the NPS microcomputer laboratory, the 
shipment included an extensive package of software in 
addition to the hardware listed in chapter ITI. Tne 
existence of this software had a sianificant imoact on the 
design of MTS. The nature and extent of this iImmact 1s 


discussed in the followina paragraons. 


1. Sycor 440/MTS Interface 

The Sycor 440 system demonstrates one way in which 
microcomputer technology has heen aoplied to commercial data 
processing. The 440 system is marketed for aoplications in 
the field of data entry, in particular data entry at 
locations remote from a central orocessina facility. has 
intended application is readily apparent in the software 
provided by Sycor - formatted and unformatted keyboard 
input, remote job entry, report generations, communications, 
and on=site file enauiry are prominently featured. The 440 
operating system and file management facilities also refiect 
the emphasis on data entry. Most of the orogrammina aids 
which are important in a system development environment are 
not provided by the Sycor 440 software vackage. There is no 


text editor, 8080 assembler, debugqaing program, or 8080 hex 


4} 





format loader. The overating system is laraer allowing only 
limited memory space for user developed orograms. Further, 
the minisdisk file system is oriented around Static 
allocation of fixed size files. 

The Sycor 440 operating system = and associated 
utility proaqrams are well suited to the data entry 
application for which they were designed. At the same time, 
they do not provide a suitable environment for microcomouter 
systems develooment. This fact orovided tne Vat ior 
motivation for the develooment of MTS. 

Once the decision had been reached to desian and 
implement 3 separate system to suoport systems develonoment 
on the Sycor 440 hardware there were basically two options 
open with regard to the Sycor sunoplied software: 

(1) remove the Sycor operatina system and associated oaisk 
files to make more memory and disk space available for 
MTS 
(2) design MTS so that both systems might he available 
concurrently. 
Option 2 had the desirable effect of makina available a 
resident COBOL compiler and a PLMR cross=compiler, both of 
which are supvorted by the Sycor operatina system. CUntion ! 
allowed the greater flexibility in the design of MTS, but 
reduced somewhat the overall capabilities of the Sycor 
440/MTS combination. The deciding factor in selectina the 
second option for implementation was a desire to furnish the 
System affordina the maximum potentia! for 1UCure 


development while still meeting oroject goals. 
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oe. File System 

The decision to make the Sycor operatina system = and 
MTS concurrently available made it possible to imolement MIS 
without desianina a file system. The file management 
facilities provided by the Sycor operatina system proved 
adequate to handle swapping, recovery,s and virtualized 
mmoopy disks. Constraining each file to a oredetermined 
fixed size was not difficults in fact, this feature of the 
Svcor file system simolified considerably the virtual disk 
mapping function on which the entire virtual flonpy disk 
design was based. 

Four different tyoes of files were included in the 
mma) MTS design. they are: 

(1) swan files - four files, one of which is associated 
with each of the four terminals, containing a user 
program memory image 

(2) recovery file - a sinole-sector file containing a 
current copy of the system state block 

(3) confiquration file - a single-sector file containina 
the user defined mame and protection attribute for 
each virtual floppy disk 

(4) virtual floopy disk files - a maximum of 32 different 
files, each containing the image of a floppv disk as 
g@esertibed tm section IV.A.5. 

Three of these four file tyoes have been encountered before, 
but the configuration file tyne requires some adaitional 
explanation. MTS identifies virtual disks by a logical disk 


Number in the range 0 to 31. Since each virtual flopoy disk 
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actually resides in a minisdisk file created under the Sycor 
operating system, there must he some mechanism for manppina a 
logical disk number into a file name contained in the mini- 
disk directory. There is an additional requirement that the 
protection attributes assigned to various virtual aisk files 
be saved hetween MTS operatina SESSIONS. Roth of these 
functions are performed by the configuration file. 

The confiauration file is made up of 32 entries of 
thirteen bytes each contained on a sinale minisedisk sector. 
Each entry is comoosecd of a zero to eight voyte filename, a 
zero to four obvte protection keyr and aesinale etvte 
meocection attribute. The toaical disk number for each 
entry is simply the position of that entry within the file. 

In order to reduce the number of miniedisk accesses 
required to service virtual floooy disk I/0 requests, it was 
decided to read the configuration file into memorv” only 
eg@ee, during MIS initializations and abstract the contents 
into an internal data structure resident in memory. This 
concept was expanded later to include the mini-disk file 
directory as well. That too is read into memory durina 


initialization and searched for all tour MTS file types. 


D. USER PROGRAM VIEW 


The MTS user program interface consists of a set of 
service routines which may be called by a user oroaram 
throuach a single entry ooint to perform terminal I/0, access 


virtual floopy disks, Gr 8nodify the user's virtual 
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environment. The design was heavily influenced by the CP/M 
operating system which uses a Similar scheme for I/O (?). 
The use of exolicit calls to MTS for I/0 was an undesirable 
limitation necessitated by the architecture of the 8080 CPL. 
Since the 8080 is a sinalewstate machine witnout privileaed 
instructions,s the hardware orovides no facilities for 
mrapoing I/0 instructions. 

A call to MTS takes the form 

<value> = MTS(€<fid>,<parm>). 

The first argument, <fid>, is a number which identifies the 
meimction to MTS. The <parm> argument may be a narameter 
values, if only a single oarameter is requiredr, or the 
address of 8&2 parameter list if more than one is neeoced. In 
each case, MTS returns <value> upon completion of the 
requested operation. This returned value may be an ASCII 
character code, an error code, or zero if the value has ne 
significance. 

The services available to a user may he logically 
divided into two tvpes of calls on MTS: (1) system calls, 
ema (2c) service calls. System calls handle creating, 
St yins, and deleting attributes of a user's virtual 
environment. As a minimum, each user is provided with a 
virtual System consisting of an 8080 CPU, 16K bytes of RAM, 
a terminal, and a single floopy disk drive with a read-only 
copy o f the CP/N operatina system loaded. Tees 
configuration is the system default environment assumed when 
the user logs ine Beyond that the user may request: 


(1) additional memory up to a maximum of 48K bytes 
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(2) additional floppy disk drives un to a maximum of & 
(3) attachment of any virtual floppy disk whose protection 
key 1S known 
(4) reboot of the user's system from drive A. 
Each system call performs the same _ function for a user 
program as the corresponding terminal system command 
performs for the user at a terminal. 

Service calls provide a user nmrogram with access to the 
terminal, virtual printer, and virtual florrev disks. The 
details of the terminal interface are discussed more fully 
ieee section IV.F. igetme seontext of service calls, it 1s 
important to note that attenrpting to read from ae terminal 
when no input 18 waitina will cause the requestina task to 
be swapoed out and blocked until inout is available. 

Before a user proaram can access a ocarticular virtual 
disk, the user must attach that disk to one of the eiant 
virtual disk drives, either by making a system call to MTS, 
or entering the prover system command at the terminal. Once 
a virtual disk has been attachedrs, any sector within that 
disk is accessed by soecifyina a comolete sector address and 
a DMA buffer address. MTS orovides a service call to enter 
each of the three components of a complete sector address or 
the DMA buffer base address as well as additional calls to 
read or write the specified sector. 

In the section which discusses the VMM concert it was 
mentioned that transparency to the user 1S an imoortant 
characteristic of a V¥M, The attempt was made in the design 


eae MTS to incorporate this same feature. Nue forte 


46 





hardware constraints imposed by the 8080 CPU, this attempt 
was not entirely successful. There are several olaces in 
the user orogram/MTS interface where the oneration of ‘IS 
could not be hidden. The necessity for exolicit calls to 
MTS for I/0 services has already been mentioned. The manner 
in which interruots are handled by the 8080 also impacts on 
a user program. Since the only addressina mode provided by 
the 8080 is direct addressing, the fact that TS and a 
user's program occuoy the same physical memory 1S acparent 


to a user proaqram by the limits on the user's address srace. 


mee TERMINAL USER VIEW 


The primary interface between the terminal user and MTS 
is Provided by a command lanquaqe interoreter called the “IS 
Command Processor (“CP). This interface provides the user 
with the facilities necessary to establish and modify the 
working environment. [nRemeuscermmcan Gaim access to is 
through system commands at any time, even though currently 
communicating with a subsystem such as CP/M or other 
programs. Access is accomplished by entering the 
appropriate command at the terminals, terminated by the ERROR 
RESET key. This siaqnals the MTS monitor that the input data 


7S a System command to be processed by MCP. 


1. MTS/MCP Interface Design 
One of the desian considerstons for a command 
processor mn an interactive timeshared environment 1s 


whether it shall be resident or non-resident. The actions 


47 





required to establish and modify the user's environment. are 
not normally time sensitive nor continuously exercised by 
the user. For these reasonSr recent timesharing systems 
have commonly implemented the command orocessor aS a2 non- 
resident task (16). Establishing MCP as a non-resident, 
Swappable task was given serious consideration. However, 
one of the major Sycor 440 hardware limitations affecting 
the ijimolementation of MIS was the relatively low gata 
transfer rate between memory and the minir-disk (1.4.3). To 
meet the goal of reasonable system resoonse, minimizina the 
number of swaoppina tasks became one of the MIS desian 
constraints. 

The decision was made to desian MCP aS a resident 
but comeletely indenendent module of MTS. This concept 
makes the MCP/MTS interface essentially the same as tkat 
between any users proaram and MTS. MCP affects changes in 
the user's virtual environment by calls to “ITS in the same 
manner as would a user proaram. There are two orimary 
differences hetween the MCP/MTS jnterface and a user 
program/MTS interface: 

(1) The entry port used by MCP is an jnternal MTS”) entry 
point. MTS also provides an external entry coint for 
use by user procrams. The reauirement for two entry 
points resulted from the decision to make the MCP 94 
resident orccess. The distinction iS necesSary to 
byreass the mechanism which blocks user proarams 
requesting terminal input when the inout buffer 15 


empty. 
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(2) MCP must save and restore the MIS system stack pointer 
to ensure returning to the proper location in the MTS 
monitor. User orograms do not directly interface with 
the MIS monitor, and thus are not concerned with 


Savina and restorina its stack pointer. 


The independence of data structures and system cal! 
interface features were maintained for ease of implementina 
MCP as a Swappable image at some future time. Uparagina tne 
Svcor 440 miniedisk controller sneed ana an increase in the 
number of system commands available to the user would 
justify  imolementing the MCP as a non-resident swapoable 


task. 


eC. System Commands 

Since the system command language 1s the terminal 
users main ooint of contact with MTS, the features and 
Syntax were given careful consideration. The desian aoals 
were to develop a command lanquaae which is easy to learn 
and easy to use. 

There are two basic sets of system commands 
available to the user. One set of commands allow the user 
to establish and modify the Be RG Anen ts These include 
linking the terminal to MTS (LOGIN)? specifying virtual caisk 
drives and virtual flopevy disks to be attached to the 
environment CATTACH)? chanqina the memory image swap size 
allocation (SIZE)% and unlinkina from MTS (QUIT). 

The second set of commands provide the user with a 


means of specifying protection attributes for virtual floocyv 
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disk files. These include adding the orotection attrivcute 
Momo specified virtual floppy disk (PROTECT) addina the 
restricted attribute to a protected virtual floopy disk to 
allow read access by other users (RESTRICT): and to remove 
on 

all previous orotection attributes from ae virtual flocpy 
ease C(UNPROTECT). 

The functions Syntax, oarameters, description and 


associated error messaaes for each command are described in 


Gera)! in section 0.35 of Appendix A. 


meme TERMINAL INTERFACE DESIGN 


The four terminals attached to the Sycor 440 systen 
provide the user with a CRT disolav and tynewriter-like 
keyboard for entering data. AOE Ve OeSCrIEt1ion. -oFf the 
terminal hardware is contained in chapter III. The factors 
affecting the terminal) interface desian included: 

(1) Long delays between key depression and apnearance of a 
character on the terminal display are unacceotable to 
the user. 

(2) The characters displayed at each terminal are a DMA 
image of characters located in the Svcor 440 main 
MEMOPY « 

(3) The terminals have very primitive hardware display 
HOGiCc. Thus software is required to accomplish such 
tasks as converting a keyboard matrix code to ASCII 
code for each key depressions bdlinkina the current 


position imaica tor (cursor), and scrollina the 
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disolay. 


1. Design Decisions 

MTS was desianed to provide ae virtual terminal 
interface for programs reauesting terminal 72 o Tags 
interface simulates the operation of a serial half#duplex 
console device. For input of data, the user program 
requests characters one at a time throuqh service calls to 
Palo « If input is available, the next character is returned 
to the requesting proaram. Qutout is handled in a-esimilar 
fashion with the user proaram providing an ASCII character 
code eS an arqument in the apnrooriate service call. \ 
service call is made for each character to be disnlayea. 
For each request received by MTS, the character is displaved 
Syeeolacing it at the current cursor oosition 1n the 
appropriate terminal's DMA’ disolay ouffer. The only 
characters not olaced in the display buffer on output are: 
Carriage return (CR), which returns the cursor to tne 
leftmost position of the current liner and line feed (LF), 
which moves the cursor position down one Jine. The outout 
of a data sequence is normally terminated by a CK/LF 
character combination. MTS also provides a terminal status 
Bey ice call which allows a user orogram to test whether 
meeut Gata is available for processing (0.5). This function 
could be used to test for a break kev indication durina 
output by the user orogram. 

Due to the unavoidable delays in user osrogram 


resoonse caused by swapping and aaqaravated by the relatively 





low data transter rate of the mini-disk, the MTS. terminal 
interface was designed to provide character echoina and 
simole line editing. This ensured reasonable resoonse times 
to key activation by the user, even though his program was 
not currently in memory. Each character key activated at a 
keyboard results in the appropriate character beina 
disolayed on the CRI by MIS. The line editing features are 
discussed in section 3 below. 

There are four 576 byte DMA terminal buffer areas 
located in RAM, Thus, a 2304 byte area of the Sycor 4400's 
main memory has been allocated by the system hardware desian 
for terminal disolay buffers. To take maximum sdvantace of 
this memory utilization, the decision was made to use this 
area as the input holding huffer as well as the display 
Peerer. [his eliminated the need for additional input 
buffers and the extra orocessing time required to move a 


completed tinout line to a separate buffer. 


ec. Display Description 

The first 64 display character oositions of each 
terminal are ohysically senarated from the remainina Sie 
Character positions by a blank line. harsae led 7 to 7 wt hie 
decision to reserve the first line for displav of status and 
error messages. All inout and output of data was to 0o0e 
accomolished in the remaining Sie character positions. 
Thus, each 576 byte terminal buffer 15 logically divided 


Into two Separate buffers, as follows: 


Be 





+ 0 STATUS LINE 635; 
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The numbers are decimal and specify character positions 


within the status line and display buffer. 
The terminal status line is used by MTS to dispglav 
three types of status information: \ 
(1) The current virtual drive and flonopy disk assianments 
for that Sees 
(2) The size of the user's swap imaae, i.e. the amount of 
memory space currently available. 
(3) Error message alerts produced by MTS system commands, 
or resulting from user proaram calls on the DISPLAY. 
MSG service routine (see section F.2 of Anpendix A). 
The status line disnlay format and contents are discussed in 
detail in section E of Apoendix A, 
As indicated by the above format descriotion, the 
display buffer can hold a maximum of 512 characters (& lines 


on the CRT), As previously mentioned, this ouffer not Omi y 
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provides the display of characters but also acts as an input 
puter, holdina the input data until the user’s program 
requests it. Since MTS provides simple line editina of 
input data, this data can not be considerea available to the 
user's program until an inout Jine termination character kas 
been received by MIS. To establish an input ouffer for a 
program, the user enters the data and terminates the line by 
hitting the NEWLINE or ENTER keys on the keyboard. This 
establishes that line as an inout buffer available for 
processing by the user's program. Note that the kev 
Semormations ‘1/0 CTL M* or "SHIFT CR’ (Con the number pad) 
will also result in the termination of an input line. 
Either of these keys, as rein as NEWLINE and ENTER, may be 
used for line termination. 

Once an inout buffer has been established the user 
may continue to input data on the next line. The user mav 
use any of the line editing or other cursor control features 
on this new line of inout data. However, this new line mav 
not ba teroinated until the user's orogram has Processed the 
previous inout buffer (see terminal alerts below). 

Each character output from the user's program 15 
disolayed at the current cursor oosition. Each output 
results in all inout buffer oointers beina reset to the 
Character oosition at the end of the output data. This, 
subsequent [/0 will start at tnis point. This implies that 
if the user had been in the middle of enterina data when the 
output occurreds, it must be reentered. 


The MTS terminal jinterface provides the user with 
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either a visual or audio response to each key denression. 
Normal visual response is provided by disnlay of the entered 
character (echoina) and/or movement of the display cursor. 
The display cursor is a blinking underscore character which 
marks the current position on the screen. Data is always 
entered and disnolayed at the current cursor position. 

The audio responses consist of either a beep or 
click at the terminal. 4A terminal been alert will ve 
generated for any of the following conditions: 

(1) An inout buffer is waiting to be processed by the 
user's oroaqram and the terminal user attempts to 
terminate a new input ine. 

(2) An attempt is made to move the cursor hack oast- the 
start of the current line. For example, attempting to 
delete the orevious line or character after the line 
has been entered by a termination key will result 1n a 


beep. 


The terminal click alert iS associated with the 
display scrollina feature. Since the display buffer also 
acts as an inout buffer, scrollina the display when the S12 
byte disolay buffer is full could destroy input data which 
Maemenot yet been processed. for examole, the user could be 
entering a Sle character string. Unon termination of that 
input line, MTS will prevent scrollina until the user's 
proaram has orocessed the first 64 characters. This ensures 
that the inout data is not destroyed by the scrolling 


operation. This scrolling lockout 1s indicated to the user 
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Eeyea terminal click alert. 


3. Terminal Key Functions 
The terminal keys fall into five basic functional 
groups: 
(1) Character string keys = these are the alphanumeric and 


re) 


c5) 


special character kevs normally available to the user 
for input of data. Alphabetic characters are entered 
and displayed in either unoper or lower case, dependina 
on the key mode (see Soler The tab key causes the 
entry and disclay of a special tab character, no 
blanks are oadded in for tabs. 

Entry mode kevs = these keys define the interpretation 
of keys for special functions or alohabetic upper 
case. These include the FUNCTION SELECT, I/0 CONTEKOL, 
and SHIFT keys. In addition, the key combination 
FUNCTION SELECT and C sets or clears the alphabetic 
key entry mode to upper or lower case. This functions 
as a shift key lock because a phvsical LoOCGKe- ai sa Wino 
provided with the terminal keyboarda. 

Line termination keys = these keys define the termi- 
nation of an input line of data. Input aata to be 
processed by the user'sS program must be terminated 
with one of the followina keys or key combinations: 
MeMleINEs ENTER, I/O €TL Me or SHIFT CR. Their 
function was discussed in the preceeding section. 
Another termination key is ERROR ie ES which 


scecifies tho t the input tine it terminates 1s to be 
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processed by MTS as a system command. 

(4) Line editing and cursor control keys - these keys 
provide the simple line editinoa features such as line 
delete (NEXT FMAT); character delete (BACKSPACE); 
clear screen (FS $ or I/0 CTL $)+ and move cursor left 
@ip (elite Al SGI a 

(5) Number pad keys = consists of 10 numeric diaits ana & 
ASCII control characters located on the riaht side of 
the keyboard. The digits function in the same manner 
as the other numeric digits on the keyboard. The 
ASCII control characters are displayed when the SHIFT 
key VoMEECIEORESSeCGQ Im CONMIiunction with the appropriate 
key. The only control character which affects the 
disolay is SHIFT CR (see line termination keys). 

All terminal keys and their functions are described in more 


metail in section 0.2 of Apnendix A. 


G. CHOICE OF A PROGRAMMING LANGUAGE 


Following the design ohase, it was necessary to choose 
an aepropriate orongrammina language to be used in the 
implementation ohase of development. An obvious reauirement 
was that the language selected must suoport system 
programming for the 8080 microorocessor. Oinerem factors 
involved 3M choosing a lanquace for the MTS develonment 
included the followina: 

(1) Efficiency of the code generated by the assembler or 


compiler. An important consideration in any operatina 
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o>) 


(4) 


(5) 


system develonment is minimizing the amount of memory 
and processing time utilized by system routines. 

Ease of access to machine resources (e.g. registers, 
memoryr 1/0 ports, stack, etc.) through the constructs 
provided by the lancuage. This must be considered 
whenever develoving software which will be interfacina 
with the bare machine. 

The availability of the assembler or compiler for 
development work. The turnaround time for assembly 
or compile tasks and the debuq aids oprovided by a 
lanquage are imoortant factors. 

The inclusion in the lanquace of convenient conteroal 
Structures and self-=documentation features similar to 
those found in most hiaqh-level Structured lanauages. 
It has been shown that these features assist In ranid 
System developoprent = and checkout, Straightforward 
maintenance and modification, anda highly reliable 


system. It was envisioned that MTS would be enhanced 


and modified extensively as the requirement for 
additional microcomouter develooment facilities 
increased. Thus, ease of future modification and 


maintenance was a prime consideration. 

The ability of the assembler or comeriler to generate 
error free code was important for ease of coding, 
testing, and debuagina the system modules aurina 


project development. 
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There were three lanauages available at NPS which 


supported programming for the 8080 micronorocessor. The 


r 


following 18 a brief description of these languages |) sence 


their advantages and disadvantages: 


(1) 8080 Assembly Lanauage [81 - the assembly lanquage 


(2) 


developed for use with the SOSOV ar eroorocessore aif 
satisfied (1) and (2) above by oroviding efficient and 
djrect access to the machine resources. Item (3) was 
satisfied because a resident assembler and dynamic 
debugging tool were available on an INTELLEC 8/MOD 80 
microcomputer system for use during the OFC )ect 
development. The major limitation In using. an 
assembly languace is its failure to satisfy item (4). 

ML80 (12) = a structured system orogrammina§ language 
for the 8080 microprocessor developed as a thesis 
project at NPS. It is comoosed of two indenendent 
janguages: M80 = a macro oriented languages and |La@0 = 
amachine oriented lanauage. It incorporates = such 
features as? control Structures, similar to those 
found in most high-level structured lanauages? allows 
full use and control of the resources of the 8080 
microprocessor through the use of algebraic notation 
Lot machine-level register and data operations? 
Provides compile-time features, such as exoression 
evaluations, conditional comoilationr and macros; and 
provides load=time facilitiesS, such as the Jlinkina of 
precompiled procedures into the object orogram 


(Generates relocatable code). It was also available 
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as a resident compiler on the INTELLEC A/MOD 80. Thus 
to some degree, ML80 satisfied all the considerations 
mentioned above except (5). That is, it had never 
been used for a large system development and thus its 
performance in that environment was untested. 

(3) PL/M [9] = a high=level proorammina lanngquage designed 
to provide system proaramming ror the 5080 
microprocessor. It was desiaqned to facilitate the use 
of modern techniques in structured programmina. Thus,e 
it came the closest in satisfyina consideration (4) 
above. Howeverys its major disadvantaqae was in 
generating less efficient code and allowing Jess 


direct access to the machine resources than rhe 


preceedina two langquaoces. 


After considering the advantaces ana disadvantaces of 
the languages available, the decision was made to utilize 
ML80 as the primary develooment lanauage for “ITS. A subtask 
of the thesis oroject was to test ML&0 as a progqrammina 
lanquage ina larae system development environment. Results 
of using ML&0, including recommended enhancements to tne 
language and it's facilities, are included in the remaining 


chapters. 
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Vee 1S JTMPLEMENTATION 


Top down system design and modular proaqramming are 


current software enaineerina concepts which  stronaly 
influenced the desian and implementation of “TS. As each 
specific functional requirement o f 3 timeshared 


microcomputer system was identified, a new module was added 
to the MTS desian to satisfy the recuirement. An effort was 
made to make each logical module an tndepencent entity 
communicating with other system modules through a simple, 
welledefined interface. This same concept was also avonlied 
to the imolementation ohase of develooment. Each loaical 
module was imolementec as a separate code module with fhe 
fewest possible number of intermodule linkages. Five 
modules were needed to meet the orocessing and resource 
sharing requirements imoosed by timesharing. In aadition to 
these code modules, a sixth declaration module was included 
to define the underlying data structure. 

Use of ML80 as the implementation Janauage for MTS 
affected the develooment orimarily in the area of module and 
Gata structure linkages. The problems encountered can be 
attributed mainly to the limited memory size (160K) of the 
INTELLEC 8/MOD 80 which hosted the ML&80 compiler. Due to the 
relatively small amount of work area available, many of tne 
comoiler's tables and stacks were too small to satisfy the 


agemands of MTS. This size limitation forced a correscondinyg 
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limitation on the size of imeividuea } MTS modules”) and 
suomodules. The effect of forcina a decrease in the natural 


size of the MTS proaqram modules was to increase the linkage 


requirements between these modules. The ML&0 comoiler 
orovides some link editina facilities, but does not 
conveniently support the numerous Jlinkina requirements 


encountered in the develooment o f MTS. 


Bee YOTEM STATE BLOCK 


The management functions performed by “IS may be divided 
into task management and resource management. Task 
management is concerned with the contro! and record=keenina 
functions necessary to supoort uo to four concurrent tasks. 
Resource manaaqement provides the same functions for the 
hardware resources of the Sycor 440. OCR me YG es ed 
management involve recordina status information for later 
use in processing control. Considered jointly, this status 
information defines the state of the MIS svstem and forms 
the basis of the MTS data structure. 

In the implementation of MTS it was found necessary to 
combine all status information into a logical and physical 
block called the system state block (SS8). This approach 
was originally adopted to reduce the overhead of tne 
recovery feature. The status information contained in the 
SSB must be copied to a recovery file after each swap. 5y 
consolidating this data into a compact, contiguous) block, 


only a single minirdisk access was recuired. 
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Subseauently, it was found desirable to combine all 
variables referenced by two or more MTS modules into a 
single declaration module with alobal scone. This imoroved 
the readability of the source program, simolified program 
debugaina, and facilitated maintenance of the system. The 
SSB is logically composed of three distinct elements: 

(1) task control table = contains information on tne state 
of each task and data reauired to support swapninsc. 
Each variable contains four entries ~ one for each of 
the four terminal tasks. 

(2) disk man table - contains information on the status, 
protection attributes, and niniwx=disk location of all 
virtual flopoy disks. Fach variable contains 32 
entries = one for each of the 3c possible virtua! 
floppy disks. 

(3) system control variables - single variables referenced 
by several modules, e.a. the swan lock and the number 
of the task currently executing. 

Each task control table and disk map table entry was 
actually imolemented as a named byte vector indexed by the 


task number. 


B. MONITOR MODULE 


The monitor module incoroorates” all o f the tase 
management functions reauired by MTS into a physically and 
Megycally distinct module. Included tn this module are 


routines which handle the loading of a task, schedulina a 
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task for executions, Swanping tasks between memory and the 
miniwdisk, and deleting a task after an irrecoverable 
hardware error. Oue to the module size limitation imrosed 
by the 16K ML80 compoilerr it was necessary to divide the 
monitor into utility and task management submodules’ for 
compilation. A third submodule, containing the initial 
program load routines, was included in the physical monitor 
module for reasons of convenience rather than loaical 


Pomtinuity. 


1. Utility Subnocule 

It was found convenient in the imolementation of MTS 
to develop a grouo of utility routines to handle recurrina 
primitive operations required to access entries In the 
System state block. Since most SSsd entries are indexed by 
either a task number or a virtual disk number, a sianificant 
Savings in memory space was realized by renlacina inesline 
code segments with calls to a utility for indexine 
operations. The convenience of having these primitives 
available was offset somewhat by the necessity to compile 
the utilities submodule independentlilv of the calling 


routines. 


ee. Task Management Submodule 
The life cycle of a task in a multiorogrammed 
environment may be reoresented by a series of transitions 
between process states. Jt is the job of the operatina 
Eyreeeem tO control and monitor these transitions [10]. In 


the MTS operating system this function is performed by the 
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task management submodule. 
Each user task in the MTS environment may exist in 
one of the following states: 
(1) logged in = task is active but not vet loaded 
(2) hold = task requires the services of the terminal 
command processor to alter its virtual environment 
(3) blocked - task is waiting for the comoletion of an IJ/N 
operation 
(4) ready - task 1S waiting for the CPU to become 
available 
(S) running = task has been allocated both memory and tne 
ee 
The current state of a task is determined ov the bit pattern 
set in the status byte associated with that task. Each bit 
of this status byte corresoonds to a different process 
state, and’‘there is a different status byte associated with 
each task. Since the information contained in tne task 
status bytes is an important part of the overall system 
status, they are located in the syster state block. 

The processing performed by the MTS) monitor 1S 
driven by the values of the task status bytes. When the 
monitor is entered it sets a task counter to the number of 
the task currently runnina, increments the AG Sule then 
examines each bit of the status hyte indexed by this 
counter. Tf it finds a bit set, it calls the aporopriate 
routine to affect the state transition imolied by the task's 
current state. In the event no bits are set, the task 


counter 1S again incremented and the process repeated. 
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Note that the task status byte olays three different 
roles in the management of user tasks: 

(1) It drives the ovoeration of the monitor. 

(2) It provides the simplest possible interface hetween 
the monitor and the terminal command orocessor. The 
MCP need only set the aopronriate bit to inform the 
monitor that a new task has enterea the system. 

(3) It allows the terminal interface module to inform. the 
monitor that a system command has been entered without 
miverruptina the current task. This feature was 
implemented to reduce the swapoing overhead of svstem 
command processina while still allowing MCP to he a2 
swappable task. 

Implicit in the Sequential examination of bits carried out 
bv the monitor is a hierarchy of orocess states. Since both 
the terminal interface module and the MCP, as well as the 
monitor itself, may set various bits tn the status cyte 
independently of each other, Some method of resolvina 


conflicts was necessary. 


3. Initial Proaram Load Submodule 
While not logically a part of the task management 
function, the IPL submodule has an important influence on 
the operation of the monitor after MTS is loaded. The 
preceding section described how the SS, particularly the 
task status byte, drives the operation of the monitor. The 
Primary task of the IPL submodule is loading values into the 


SSB vefore MTS is executed. Two loadina options have been 
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implemented: initialization and recovery. 

The recovery option is the simplest. and most 
straightforward of the two. As discussed tn section IV.F.1 
the four swap files and the recovery file together contain 
all the information MIS needs to recover after a system 
failure. IPL processina is limited to searchina the Sycor 
file directory for the recovery file's sector address and 


then reading the file tnto the SSB. 


A areat dea! more orocessina 1s reauirea to 
initialize MTS. Again, the Sycor file directory must be 
searched = this time for aj] four Swap files, fine 


configuration file, and the recovery file. Assuming that 
the sue MTS system files are found, the IPL submodule then 
reads the confiauration file and searches the Sycor file 
directory for each virtual floppy disk file. For every file 
found %1n the directory, system or virtual floocy disk, 
beginning and endina sector numbers muSt be recorded tin the 
TCT and OMT respectively. Initialization of the DMT also 
requires that protection kevs and attributes must oe copied 
from the configuration file. 

The IPL submodule provides’ the only internal 
interface between MTS and the Sycor onerating system, 1.6. 
mae file directory. This submodule is also the only 
routine, other than the timer handler in the interrupt 
moduler which calls the monitor. The final distinaquishina 
teature of the IPL submodule is that it ts the only non- 
resident module of MTS. Since IPL is only reauired once, 


immediately after MTS is loaded, the code was written to be 
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loaded in the user area of memory. Once normal Seerat ior 
beginsS,s the IPL submodule is overlayed by the first user 


task which is loaded. 


See LNTERRUPT MODULE 


The Sycor 440 provides a comorehensive set oO f 
prioritized interrupts. Each hardware interruot causes the 
execution of an 8080 RESTART 1 (RST 1) TAS rue t 10m. Was 
instruction behaves like a aa to location OOOA8H, That is, 
it results in the procram counter value heitna osdushed = cnto 
the current stack and control heina transferred to location 
OO08H. Due to this hardware characteristic, user proarams 
must ensure that any user defined stacks are at least four 
bytes larger than the maximum size reauiread by the user's 
Gem code. This will ensure that the stacks wil! not 
overflow if their proaram 18 executina when an interrupt 1S 
generated. 

Since all interrupts cause execution of the Same 
interrupt instruction, some means must be available to 
determine which device qenerated the interrupt. The Sycor 
440 solves this problem by defining an interrupt level for 
each different device. There are 17 interrupt levels with 
values ranaqing from 0 to 16. The priority of interrupts is 
established by assianing a hiqher priority to a device with 
a@ higher numeric value. When an interrupt occurs the level 
used to identify the initiating device 1s available on a 


Beecific inout port. Simultaneous interrupts will he placed 
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on the interrupt input port in a opriority sequence. That 
is, the levels will be inout in descendina sequence by level 
number. When the level on the  tnput oort iS zero ail 
pending interruots have been orocessed. The interrupt input 
port number and the interruot level assignments which apply 
to the current NPS Sycor 440 hardware confiquration are 
contained in Ref. lL. 

The interrupt module processes two basic Interrupt 
categories: 

(1) timer interruot - this interrupt is qenerated ovv- an 
internal clock once every 5S50ms, when it has been 
enabled. This crovides MTS with the capability of 
accomolishing tasks which must be done on a periodic 
basis. It also provides MTS with the means’ for 
regaining control of the system from a user proaram. 

(2) device interrupts = these interrupts are aqeneratedc bv 
a soecific peripheral device to indicate the 
completion of a task or a request for. service. The 


Dprocessina of these interrupts iS Gevice dependent. 


fee Dats Structures 
The tnterruot module consists of two partser an 
interrupt controller and a set of interruot handlers. There 
1S an interrupt handlina routine for each interruot§ level 
processed by MTS. The data structures reautired ov tne 
1nterruot module include: 
(1) interrunot stack = a 30 byte data vector used to save 


the current system environment prior to any interruoct 
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processing and to restore the environment upON 
completion of interruot processina. 

(2) blink timer = a single byte used to store the current 
value of the periodic terminal orocessing counter. 
This counter is decremented once every S0ms and 15 
used to determine when to blink the cursor character 
at each terminal. 

(3) task timer = a global system variable used to control 
aeuser task*s timeslice. 

(4) lock = a global system variable used to indicate 


Swappina lockout. 


ce. Interruot Processing 

Durina MTS initialization, tocations N008*Q00Al1 are 
loaded with a jump instruction to the tinterruct controller. 
fags, when an interruot occurs, the interruot controller is 
called. It saves the current environment, identifies the 
interruot level and calls the anoppropriate handler routine. 
meen return from the interrupt handler, the controller 
checks the interrupt input oort to determine tf any more 
interrupts are pendina. If sor, the seouence 1S reneated: 
otherwise the environment is restored, interrupts enabled, 

eeoecontrol returned to the interrupted process. 
The interrupt handlers orovide the following 

processing: 

(1) timer handler = manages the two functions of MIS which 
occur at oeriodic intervals. These are blinkina the 


terminal cursors and returnina control to the system 
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(2) 


3) 


when a task's timeslice expires. In order to keep 
track of the two intervals involved, two counters are 
maintained. These counters are each set to an initial 
value and then decremented each time a timer interrupt 
occurse The actual value contained in either counter 
represents the time remainina itn the interval in 
multioles of 50ms. When the blink timer reaches zero 
the aporopriate routine is called to blink the cursor 
character at eacn terminal. “hen the task timer 18s 
zero a check is made to see if swapoina is lockeoa out. 
If nots the current environment is moved to the swan 
Buaeanandecenmunroll 1s transferred to the MTS monitor. 
terminal handler = orocesses the interruot aenerated 
by a character key depression at one of the four 
terminals. Tt retrieves the terminal identity 
responsible for generatinag the interrunt and the 
associated keyboard matrix code from the aporogpriate 
Mapwt OOFt . The terminal inoue Control routine, 1s 
then called to comolete the key processina (see 
Terminal Interface Module). 

other device handlers = the remaining device handlers 
(e.ger cassette and orinter handlers) were desiaqned 
but not implemented. The present implementation 


simply clears the interrupt status and returns. 
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Pee SERVICE MODULE 


The most visible woint of contact between MTS and user 
proarams 1s the software interface which multiplexes the 
hardware resources of the Sycor 440. In the implementation 
of MTS all those procedures and routines which provide this 
resource management were consolidated into a sinale code 
segment called the service module. Once agains gue to the 
module size limitation imposed by the ML&80 compiler, it was 
necessary to divide the service module into three physica! 


submodules. 


1. User Interface Submodule 

Sectiromnly.D GCesemupes in detail the form of a cal} 
to the MIS service module. The implementation of this 
calling protocal follows the PL/M convention for nmarameter 
passing. That ts, the function identifier (a single byte) its 
passed in register Cr, while the woarameter list audress is 
passed in register pair DE. The service module subsequently 
uses the A reqister to pass the return value back to tne 
calling proqram. A user program oe the service module 
by loading the C;,D, and E registers with the aporopriate 
values and then executing a call to location 2000H. 

The service module orovides an alternate entry noint 
for service requests from other MTS routines. Thais 
alternate entry point was found necessary in order to 
implement the MCP as a Swaopabdle image. Since a second 
entry coint was required, it was deciaed to make the 


interface as general as possible by usina neaative function 
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identifiers for internal service calls. This made it 
relatively simole to verify the source of the service 
request, ands as an added benefit, made available an entire 
new series of function identifiers without disruptina the 
series already in use for external calls. 

The first action taken by the interface submodule 
upon entry iS Setting the software lock which suporesses 
swapping. The routine continues with validation of the 
Pome tion identifier and a call to one of the other 
submodules to handle the operation reauested. When control] 
is regained by the interface submodule the swap lock 15 


reset and control returned to the callina routine. 


eae oervice Call Submodule 

The first ster in the implementation of the virtual 
I1/Q functions was to determine the operations performed by 
each device. Since it had alreadv been decided to limit the 
scope of this baseline system, only three devices were 
considered: terminals, the printer, and virtual 2 eleron 
Bmesks Sharing the mini-disk. A total of ten onmerations were 
identified as necessary to provide virtual I/O with these 
three devices. Subsequent efforts concentrated on the 
terminals and virtual floopy disks. Data structures were 
developed to support each device and routines written to 
simulate the operations verformed bv each. To conform with 
the modular approach adopted for this project, the terminal 
routines were incoroorated in the terminal interface module. 


The service call submodule contains the remainina routines. 
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Appendix A contains a detailed descriotion of each service 


eal). 


3. System Call Submodule 

MTS was desianed to allow each user a certain amount 
of flexibility in the virtual environment provided by the 
system. In order to imolement this feature it was necessary 
to orovide additional service routines to handie this higher 
level resource manaaement. These additional routines, 
called system calls, are ret tpeegueay the CP to satrstyv 
terminal reauests for changes in a user's environment. it 
was decided that these same services shoula also be provided 
to user proarams. Tiiypscmled to the inclusion of syster calls 
in the service module. 

The system calls affect changes in a user's virtual 
environment by acting directly on the status variables 
contained in the SSB. Normallys two or more parameters are 
required to soecify exactiy the action desired. ee ln 
parameter 1S examined closely by one of several valiacation 
procedures contained in the system call submodule. Fvery 
effort is made to ensure that the request is compatible with 


the current system state before any chanaes are made in the 


998. 


74 





feels COMMAND PROCESSOR MODULE 


The MTS command processor (MCP) was desianed to he a 
completely independent module of “TS (see IV.E.1). ‘The 
decision was made to imolement MCP utilizing a high-level 
langquager, namely PL/M, This aporoach had the foallowina 
advantages: 

(1) Use of the PL/M structured constructs, debugaing and 
self=documentina facilities to assist In the ranoid 
development, checkout and integration of the command 
processor. 

(2) Assistance in simolifving future maintenance and modi- 
fication tasks associated with the command processor. 

(3) Provided a PL/M proaram which illustrates and tests 
the system and service call interface reauirements of 


ao GOoOoram with YTS. 


Since the MCP interface did not require direct access to 
the machine resources, the inefficiency of code generation 


resulting from the use of ae high-level lanquage was 


outweighed by the advantaaes it provided. 


1. Data Structures 
The data structures required for a command orocessor 
are fairly common, dependina on the number and complexity of 
commands available to the user. Those used by MCP include: 
a 64 byte command buffer? a command buffer pointer to tne 
next characters lenath of the input command sequence; a bvte 


vector tS hold and transfer the command oaramreters to the 





service module. 


The MTS/MCP interface is through the internal 
interface vort located at LFOOH, The data structures 
required to generate the function call interface are 


identical to pee used by CP/M [4]. An example of the 
calling procedures can be found in section F.4 of Appendix 
A. MCP is also required to save the MTS system stac« 
pointer prior to orocessing the command. To. maintain “its 
independence, MCP utilizes its own stack for internal 
processing. It then restores the system stack oointer orior 
to exit. This ensuresS a prover return to the location in 


the MTS monitor where MCP was initially called. 


2. Command Processina 

The command processor is called by the MTS -ronitor 
to process a system command entered hy the terminal user. 
After saving the {ystem stack pointer and setting unm its own 
stack, the data structures are initializeag. The system 
command is then read into the command buffer using a 
sequence of MTS service calls. If the command buffer 1s 
empty,» no further processina is accomolished, MCP returns to 
ogee monitor. Assuming there is a command to process,r the 
first nonwblank character of the command is read. All other 
characters in the command name are ignored by MCP since the 
first character of each command is unique. if them otirst 
character is not one of the valid system commands, an 
INVALID CMD messaae jis sent to the service module for 


disolay on the appropriate terminal's status line. Cf ot as 
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a valid command characters orocessing of the command 
sequence continues. 

Each command is processed hy its own subroutine. 
Validation o f the parameter sequence and syntax 1s 
accomplished for each input command (see D.3, Appendix A). 
An INVALID CMD error message is displayed for any detected 
error in syntax. The following conversions) of eieeie 


parameter values are cerformed: 


> 

>) 
Cs 
(4 
~~ 


(1) drive letter - range of values is AH; the 
letter character 18S converted to a binary number 
between 0 and 7 (e.a. A=0, B=l, etc.). 

Wee disk Number = since the range of vatues is from O-31, 
No more than two characters mav be entered for this 
parameter; the input ASCII numeric characters are 
converted to the equivalent binary value. 

(3) memory size - ranae of values is (0-48, thus um to two 
ASCII numeric characters are converted to the 


equivalent binary value. 


As the parameters are processed, each is saved in 
the parameter vector. After the command sequence has been 
interpreted, MCP calls the MTS service module to continue 
processing the command request. Khas cal ls include’s the 
appropriate system command number and the parameter or list 
of parameters required by the syntax of the command. The 
MTS service module will always return a comoletion code to 
the callina routine. MCP is implemented to immediately 


return this comoletion code to the service module in the 
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form of a DISPLAY MSG system cal). This results In the 
approoriate message bheinaq displayed to the user  uoon 
comoletion of command processina (see E.3- Aonendix A). MCP 
then restores the system stack and returns control to the 


moemonitor. 


F. TERMINAL INTERFACE MODULE 


The terminal interface module was designed and 
imolemented to crovide ali functions and facilities required 
to interface the four Sycor 440 disolay terminals with the 
remainder of MTS. teerootates @l ithe terminal functions 
and data structures into one indenendent module. There are 
no external routines accessed and only two “TS aloval data 
structures accessed ov the terminal moaule. This provides 23 
high dearee of mocule itndeoendence and minimizes the 
external linkage requirements. 

The terminal interface module orovices three aeneral 
services for the Sycor 440/MTS environment: 

(1) terminal orimitive functions - These are functions 
which are commonly orovided by the terminal hardware 
of intelligent text display devices. However, the 
Sycor 440 reguires that they te provided by the 
software. These include such tasks as converting from 
mere yooacad Matrix code to ASCII code for input data, 
Blinking and updating the current oosittion WhiGtG oat or 
HGursorl, and Scrolling the disolay. 


(2) input key processing = this 1S orocessing done under 
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Nocenrruot scOomMtrol, for @ach key activation interrupt 
received. Hemamevides Cheekine fer Caditalization of 
alphabetic character, checkinaq for any special "TS 
command keys and input character echkoina. 

(3) system interface functions = these functions provide 
the primary interface nmoint between the termina! 
module and other MTS modules. They provide the 
processina of requests from “VTS routines for terminal 


meuwnor Gtatus iwmformation. 


The terminal) interface module was loaically and 
physically divided into five (5) submodules. Each submodule 
contains the linkage and macro definitions necessary to 
interface with other terminal submodules and caclobal svstem 
data structures as required. The oassina of parameters 
between procedures and submodules within the terminal moanle 
1$ accomplished entirely through the machine recisters. The 
terminal interface submodules are discussed in the followins 


paragraphs. 


1. Data Structures 

This submodule provides all tre internal data 
Structures used by the terminal interface routines. An 
important point to keep in mind is that all data structures 
Providing display I/0 control are ain multioles of four, 
requiring one for each of the four terminals. Fach terminal 
was assiqned an identification number from 0-3. 

The primary data structures orovidina disnlay T/N 


contro] include the four S76 byte DMA buffers discussed in 


79 





section IV.F.2 and the followina: 

(1) disolay base = a data vector containing the hase 
address of each of the Sie byte display buffers (aoes 
not include the 64 byte status line). 

M2) Cursor = a pointer specifying the current displav 
address (from 0-511) at which the cursor character 1s 
to be disolayed. 

(3) current line - a oointer soecifyina the initial 
display address of the current Jine in which the user 
is entering data. This line has not. yet been 
terminated by a line termination «xey (see section 
iver ec). 

(4) next char = a pointer soecifyina the initial display 
address containing the next character in the inout 
line (buffer) tc be processed. aes aout 1 1 memes 
Serimedgan as a) strima of up to Sle ASCII characters 
Tchanas Oem terminated by 4 }ine termination key. 

(5) end ibuff *- end of the innut buffer; ooints to the 
display address where a line termrinaticn key was 
received. 

(6) terminal) status = contains the current status of each 
terminal's input buffers the possible values are innut 


waiting, MTS cmd ready, or ibuff emroty. 


Additional data structures include: a3 matrix coge 
to ASCII conversion tables an upper or lower case kev entry 
moge indicator; status line base adoress vector; and data 


vectors containina status line messages. 
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Zeeeewty i Tty Routines 

This submodule contains the basic utility routines 
which provide common register manipulation and processina 
required by the remaining terminal submodules. The only 
data structure needed by this submodule 18 a Swap position 
address used for Swarr cursor processina. These utility 
functions include: comoarina display pointers to determine 
if they are equal? converting a binary nuntber to an ASFit 
display codes getting and storing disolav characterss movina 
bytes of data from a memory source to a Temory aestination; 
and swapnping the current cursor position character with the 
Swap position character. fhis 1s the basic mechanism used 


to provide the blinking cursor feature. 


3. Terminal Interface Primitives 

This submodule contains the routires which errovide 
the orimitive functions of the terminal module. These 
procedures require linkages to all the display control data 
Structures and the status base adoress vector. ine 
primitive functions include: blankina a specified area in 
the disolay buffer; retrieving appropriate Gisclay buffer 
and status line addresses; returnina the current terminal 
status; sending beep and click alerts te termina's:; 
scrolling a scecified terminal's displavi and updatina tre 


Surprent cursor oosition. 
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4. Key Processing Routines 

This submodule provides one of the basic. functions 
of the terminal module, that of orocessinqg each key 
character entered at a terminal. It requires linkage to 
most of the terminal data structures and to one global 
system data structure, the task status contained in the S58. 
A bit is set in the task status byte when an MTS system 
command 1s entered at a terminal. This submodule is called 
peeeetne terminal interrupt handler to orncess the insut Frey 
coe The following 318 a summary of the processina 
accomplished: convertina the input matrix code to the 
aopropriate ASCII code; checkina for and converting lower to 
upper case letters if required; checking for any key 
Gommands (Cincluding all tine editina);: ana if rot a kev 
command, the input character 1s echoed rack to the terminal 
display. A key command is one of the followina: 

(1} line termination key = either an EPROR RESET or CR 
Key. Checks to see if input can be acceoted. If 
input is already waiting to be orocessed tne 
termination key 1S not accepted and a terminal been 
alert 1S sent to the terminal. Otherwise the current 
line is established as the new input buffer. The 
appropriate terminal status is set and if it is an “TS 
command, the “CP hit in the task status byte is set. 
This ensures that the command processor is called ov 
the monitor to process this commana. 

(2) line editing and cursor control kevs -* ocrovices tne 


processing for character delete, line delete, clear 
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screens, and move cursor left or richt. Terminal been 
alerts are aenerated if the function can not be 
performed. 

(3) entry mode key - sets or clears the current alohatetic 


key entry to the approoriate upper or lower case rode. 


5S. System Interface Functions 

This submodule contains the routines which orovide 
the terminal module interface with the rest of the MIS 
modules. It provides reading and writing of characters from 
or to the terminal disolay buffers; terminal Status 
information (e.q. whether or not there 1S input waiting); 
display of status and MTS messages on the terminal status 
line? control of the ceriodic blinking of the disolay cursor 
character, and clearing the status line when requested. 
This submodule links to the terminal data structures and to 
a global system variable which always soecifies the terminal 


number associated with the function request. 
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VI. CONCLUSIONS AND RECOMMENDATIONS 


The primary goal of this thesis project was to determine 
the most feasible method of intearating the Svcor 440 system 
into the facilities of the NPS microconputer laboratory. 
The aim was to make available the resources of the Sycor 449 
in support of microcomputer systems develooment. The main 
objective wasS to provide an environment for the sharing of 
these resources among multiole users. The Microcerouter 
Timeshared System was develoned to accomnlisk this resource 
sharing. The sharing of the 8080 microorocessor throuah 
multioprogrammina rather than multiorocessina was imolemented 
only because of the hardware configuration of the Sycor 
440. The relatively low cost of microprocessors would 
normally lead to the implementation of a microprocessor-= 
based timeshared system with dedicated CPUS for each user. 
Thus, the emphasis was olaced on the sharina reauirements of 
the remaining system resources. fhe sharing of the Sycor 
440 memory was imolemented throuch the use of Swapoina, 
providing up to 48K of RAM for user programs. Sharina of 
the miniedisk auxiliary Saoragte mewasm provided Ithrouanh the 
virtual floopy disk concent. 


Durino the research and developrert of MTS, several 


areas were identified as ootential candidates for 
enhancement. These areas include: enhancements cle. the 
prototype MES system, enhancements tio the “oVveor oeeRe 
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hardware, and ML80 enhancements. 

The baseline timeshared system as imolemented provides 
sharing of the Sycor 440 memory and minisdisk resources 
amongst multiole terminal users. An Bi niotie extension to 
this basic imolementation is the Sharing of the remaining 
dedicated 1/0 devices (e.g. orinter, cassette, etc.) 
orovided by the Sycor 440. These facilities were olanned 
for during the desian phase of MTS and interface DNOINCS 
provided throuchout the imolemented vaseline system to 
ensure easy inclusion at some later date. Additional 
information on Sucaested desian and implementation 
approaches for these features are contained in Pef. 1. 

From the Sycor 440/MTS interface point of views, the main 
enhancement to the current hardware confiquration would oe 
mmemrnciusion of the fast, multim=sector niniwdisk controller 
presently under development at Sycor. To assist in tne 


meeener integration of the Sycor 440 into the current 
microcomputer develonment facilities, the addition of a 
floppy disk drive would be helpful. lt 1S recommended, 
however, that the floopy disk interface be an addition to, 
not a replacement for, the current cassette interface. The 
cassette driver 1s necessary in order to maintain 
comoatibility between the Sycor 440 and the 340 dehuacer. 
Additional hardware enhancements which would assist in the 
implemention of a timeshared microcomouter system include a 
bounds register for memory protection and a mode register 


with interrupt loaic to provide a dual-state machine. 


A secondary objective of this thesis project was to 
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evaluate the performance of ML80 in the development of a 
reasonably large system. In aeneral,s,, the use of MLO 
provided many advantaces over assembly Janguaae proaqramming 
without incurring the penalty o f inefficient code 
generation. The alaebraic notation provided by the lanauage 
proved especiallv convenient in working at the reaister 
level. The improved readability of the source code was of 
great assistance during the development of “TS. The other 
features of ML80 discussed in section IV.G oroved, for the 
most part, to be very satisfactory. However, as described 
in chacter Vy, the relatively small amount of memory 
available on the system which hosted the compiler caused 
numerous oroblems. lion yorovide a completely adequate 
environment for the development of larger systems, a 
necessary improvement would be the modification of ML5OQ to 
run on @ system with more memory available for tables and 
stacks. An obvious method of implementina this improvement 
is to enlarge ML80's fixed size stacks and run the compiler 
under the version of CP/M modified for the Sycor 440/MTS 
environment. Additional suagestions for enhancements to 
ML80 include: adding a macro library cavability for ease of 
implementing common macros, modifyina EXTERNAL and COMMON 
declarations to provide linkage to individual identifiers 
rather than entire modules as 1S Now doner and outputtina 
compiler error messages and symbol] table listinas to a orint 


file for easier debugains. 
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APPENDIX A MTS USER*S MANUAL 


The puroose of this document is to provide the user with 
the information necessary to utilize the Microcomouter 
Timeshared System (MTS). The contents include information on 
setting up the Sycor 440 System for use with MTS, loading 
and initializina MTS, and interfacing with the MTS operatinoa 
system. Sections A and B orovide a aeneral description of 
MTS design concepts and tke Sycor 440 System. Section C 
provides the detailed information necessary to interface the 
svcor 440 System and MTS. Section PD contains information on 
the terminal desian, key functions, and system commands 
which enable the terminal user to communicate with MIS. 
Section E describes the “TS status line display and defines 
the various messaaes disolayed by MTS. Section F details 
the services Provided a user oproaram by MIS, and the 
limitations on a user proaram running in the MTS 
environment. For more detailed information on operatina 
procedures for the Sycor 440 System consult section G, Feft. 
2. The complete MTS desian specification and implementation 


information is contained in Ref. 1. 
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A. MTS CONCEPTS AND DEFINITIONS 


The acquisition of the Sycor 440 Clustered Terminal 
Processina System provided an opportunity for development of 
a shared environment for microcomputer research and 
development. In responser, the Microcomouter Timeshared 
System (MTS) was desicned and built to ornvide the basic 
machine interface and system management functions necessary 
for a shared environment. 

The purpose of “IS is to provide an interface between 
the bare Sycor 440 machine and up to. four user tasks 
executing concurrentiy. The MTS environment, as viewed bv 
the users provides all fhe microorocessor facilities 
required for microcomouter research and develooment. From a 
system point of view, MIS manaces the availatle hardware to 
ensure that the hardware resources are equitably and 
efficiently allocated to competing user orograms. MTS is 
designed to interface with a version of CP/M modified to run 
on the Sycor 440. This enables all systems and proarams 
designed to run with the CP/M operating system to run on the 
Sycor 440 with minor modifications (such as a change in load 
address). This includes all the develooment facilities 
available with CP/M, such as the context editorr dynamic 
debugaer, assembler, etc. Reference 1 contains a list of 


references for CP/M and its facilities. 
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Be. SYCOR 440 HARDWARE DESCRIPTION 


The Sycor 440 Clustered Terminal Processing Svstem at 
NPS is composed of 3 control unit containinoa a cassette tape 
drive, four disclay terminals, a Centronix matrix printer, 
and a Svycor Model 340 Communications Terminal. 

The control unit is the heart of thre 440 system. 
Contained within a waist-hiah cabinet are random and control 
Meaic Including two 898!) chips, 64K of random access memory 
(RAM), interfaces for all perioheral devices, ae five 
megabyte fixed disk, as wel! as the aforementioned cassette 
tape drive. 

Located together on the front of the control unit are an 
ON/OFF/RESET keylock and svstem status oanel. Turnina the 
keylock to the RESET position activates a diaanostic 
Bootstrap program located in read-only memory (ROM). This 
bootstrap proaram performs several diagnostic tests on the 
CPU, memorys and system load device (cassette or minin-disk) 
and then initiates system loadina. The status of the 
Giaanostic tests is indicated bv a series of red liahts on 
the system status panel. These liahts are turned off in 
sequence ae each phase of the test is successfully 
completed. When all red lights have been turned off, three 
green liahts on the panel will remain lit to indicate that 
all power supplies are functioning normally. There 1s also 
one additional red light at the hottom of the system status 
panel which only comes on if the temoerature inside the 


control unit cabinet exceeds normal operating limits. 
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One of the two 8080 chins located in the 440 control 
unit serves as the system CPU. The 8980 instruction set 
consists of the 78 data transfer, arithmetic, logical, 
branch, stack, I/O, and machine control last ruct ons 
described in Ref. 3. The Sycor 440 provides a comprehensive 
set of prioritized interrunts includina a timer, peripheral 
devicer and auxiliary storage device interrupts. Passing 
control information and data hetween the 8080 CPU and 
peripheral devices 18 accomplished by utilizina the T/0 
ports (called latches in Sycor literature) oroviaed on the 
mueo chio. 

The second 8080 chino found in the control unit acts as a 
Soemcrotler for the minicrdisk. The miniwdisk is a sinale 
platter, movable head, fixed disk blocked into S12. byte 
sectors. There are 800 tracks on the aisk with 13% sectors 
per track. Data transfer between RAM and the mini-disk 15 
via direct memory access (DMA). The minizdisk controller 
communicates with the host 8080 CPU throuah a 13 ovte disk 
control block (MCR) located at a fixed location in memory. 

Peripherals supoorted by the Svcor 440 system include 
bisynchronous and asynchronous Communication devices, up to 
eight display terminals, serial and line printers, and card 
readers. The NPS confiauration has four display terminals 
consistina of a typewriter-like keyboard and CRIT displav 
device. Each terminal disolavs a AMA image of a 576 byte 
terminal buffer located in RAM. Kevooard arene) 10 1S 
accomolished by software translation of a keyboard matrix 


code into the corresponding ASCII character code. For 
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hardcopy output the NPS 440 includes a Centronix serial 
matrix printer. 

Several different auxiliary storaae devices may oe 
attached to the Sycor 440 in addition to the miniedisk. 
These include magnetic tare drives, cassette tare drives, 
and floppy disk drives. The NPS configuration includes a 
cassette tane drive located in the control] unit. This drive 
provides compatibility between the Sycor 440 system and the 
Model 340 debugaer. 

The Model 340 Communications Terminal 17S a comnlete 
system  1n Its Own fright which is marketed by Sycor for 
remote job entry (RJE) anolications [4]. When utilized as a 
hardware debuager, the 349 is auaqmentec with 4K of RAM and a 
backplane couoling to a special wirestwrapoed interface toard 
in the 440 control unit. The 340 debuagqer 18 provided with 
a software doackage which includes orovisions for loadina and 
dumping hex format crogram files between cassette tape and 
44Q RAM, examination and modification of individual 
locations in 440 memory, inserting breakooints and trans in 
proaqrams executina on the 440, and singlesstenpina through a 
program executing one instruction at a time [6). 

There are several hardware characteristics of the Sycor 
440 system which strongly influenced the imolementation of 
MTS. The most important of these are: 

(1) 8080 CPU architecture 
(2) terminal desian 
(3) miniedisk interface 


(4) sinagle=state CPU 
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(5S) lack of memory protection 
IN 
The impact which each characteristic had on the desian- and 
implementation Ot MTS 1S covered aad a 2 eee ae For a more 


detailed discussion of Sycor 440 hardware characteristics 


see Ref. ec. 
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fee oYCOR 440/MTS INTFRFACE 


The Microcomputer Timeshared System was desiaqned = and 
built for use on the Sycor 440 Clustered Terminal Processina 
System. For this reason MTS depends heavily on snecific 
features of the Sycor implementation of an 8080 hased 
microprocessor. This dependence includes reliance on Sycor 
supplied software as well as the 440 haraware, but becomes 
most apparent to the user in the two areas of loadina the 


system and mnaintainine system files. 


1. Loading the System 

The MTS object module resides on the minirdaisk in 32 
relocatable format accenotable to the Svcor System Loader. 
The Svstem Loader is called in to memory vy setting the 
internal system definition switch to 3 and turnina the 
Meer /RESET keylock on the control unit to the RESET 
position. After MTS jis loaded execution begins with the 
initial proaram load (IPL) module. The query RECOVERY? 
(Y/N) is displayed at terminal 0. The operator should enter 
Y if recovery is desired, otherwise Ne. In the event. that 
the IPL operation is halted due to a file access error (file 
non-existent or cannot be read) the message IPL ABORTED 
followed by a system file name will appear at terminal 0. 
After correctina the problem the operator may reload in tne 
normal manner. When the IPL AROPTED messane is accompanied 
by the HARDWARE ERROR terminal alert it indicates that an 
abnormal completion code was returned by the mini-aisk 


controller after a read operatior. Further investigation 
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using the Sycor utility proarams FIXNAR or ..ZAP may be 
required to identify the problem [2,5}. 
To summarizer loading MTS involves the following 
steps: 
(1) set internal system definition switch to 3 
(2) turn ON/OFF/RFSET keylock to RESET 
(3) wait two minutes while miniedisk reaches operatina 
speed and all red liahts on contro!) unit status pane! 
go out 
(4) respond to PECOVERY? query with N to initialize a new 


system or Y to recover from the last operating 


session. 


ec. Recovery File = .MTSRCVP 

MTS supports limited recovery after a user task 
causes a system crash. The recovery feature 18 imnlemented 
BEyecopying the contents of the system state block (SSB) 
after each Swap to a mini-disk file known as the recovery 
file. Since the SSB defines the state of the system at anv 
instant, recovery may be accomplished by reloading the SSR 
from the recovery file, deleting the task causing the crash, 
and proceeding with normal execution. These actions are 
performed by the MTS TPL module when the answer to. the 
RECOVERY? query is Y. 

Whenever “ATS 1s running, a sinalewsector file named 
eMTSRCOVR must be listed in the miniedisk directory. In tne 
event this file is deleted, it may be recreated under the 


Sycor operating system by using the command 





CREATE .MTSRCVR Ne=!I 
The contents of the recovery file at the comoletion of = an 
operating session are only meaningful if recovery will be 
requested when MIS is next loaded. Riau nner: under normal 
Me mstances this file is rot needed when MTS 1s not 


runnINg.e 


3. Swap Files = .MTSSWPx 

One of the most fundamental reauirements on anv 
timesharing system 15s maintainina independence of user tasks 
executing concurrently. MIS satisfies this reacuirement by 
maintaining ohysical as well as loqical senaration of al! 
user tasks in the svstem. Associated with each of the four 
terminal tasks is a mini-disk file used to store a core- 
Image of the task when it 18 waitina for the CPI or klacked 
pending some I/0 operation. At any given instant a task may 
reside on the disk in its swan file or jin memory, but at no 
time can two or more tasks reside in memory simultaneously. 

A task's swap imaae consists of 17 hytes reserved ty 
MTS for environment and virtual device control data followed 
by up to 48,896 bytes of user task memory image. Thus, the 
maximum allowable swan image is anproximately 48K bytes. 
There is no minimum value for the size of a swap Image. Tne 
Swap image size or, ecuivalently, the amount of memory space 
available to the user is variable from 9 to 4&k. In facts 
the user 1S encouraged to use the smallest swan image which 
satisfies his requirements as smaller swao imaaes tend to 


immorove system responsiveness. 
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A 48K swap image will fil) 96 sectors on the mini- 
disk. Therefore each of the four swan files should normally 
be 96 sectors long. In the event that mini-disk Space 15 
limited, or that user tasks do nat requre a 48K swap imaae, 
MTS will automatically adjust to any file size aqreater than 
Moe (32 sectors). Sixteen kilobytes was selected as the 
minimum and default system size since it provides a 
reasonable amount of memory for running the CP/M operatina 
svstem. The IPL module performs a size test on each swan 
mes tO ensure that it 1s at least 3c sectors jong. “IS 
cannot be loaded if any swao file is smaller than 32 
sectors. 

If it becomes necessary to change the size of any or 
all swan files, the file(s) must first be aeleted from the 
mere Gisk directory. fhis 1s accomplished under the SFycor 
operating system usine the command 

DELETE <filename> 
where <filename> may he .MTSSwWPO, -MIiSSWE LT, —MTSSWP2, or 
eMTSSWP3. The number in each case indicates the terminal 
with which the file is associated. After the file has been 
Geleted, it may be recreated by using the command 

CREATE <filename> N=96 
for each file which has been deleted. If swan files smaller 
than 48K are desired, the value of.N in the CREATE command 
String should be two times the required memory space in 
kilopytes, but no less than 3e. 

The contents of the swap files upon completion of an 


MTS operatina session are only meaninatul if recovery will 
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be requested when TS is next loaded. Under normal 
circumstances these four files are not required when WTS is 


not running. 


4. Confiauration File - .MTSCNFG 

As explained in section A.ewce MTS identifies 
virtual floppy disks by a logical disk number ranaing from 0 
to 31. Since each virtual floppy disk actually resides in a 
miniedisk file created under the Sycor operatina system, 
there must be some mechanism for maopina a loaical disk 
number lig Saleen mame “COomtained im the mini=dis 
Muprectory. Thass fumeti10nm 1s performed By the Voonmtiauration 
mie o-MTSCNFG. 

The confiauration file is made up of 32 entries of 
thirteen bvtes each contained on a sinale minisdisk sector, 
Each entry has the format 


} OO ie eG po Ee PA ft 

ee CGC 
where FILENAME is the 0 to 8 byte name of the virtual flonpy 
disk file as it aopears in the mini-disk directorvi KFY is a 
0 to 4 byte protection keys PA is the protection attribute 
of the virtual disk, i.e. 'P' for read/write mrotection, 'R' 
for write protection only (restricted access), and blank for 
name protection. The loaical disk number for each entry 15 
Simply the ovosition of that entry within the file. Eioar 


examole, the first entry 1s assianed logical disk number 0, 


the last entry 31, and the entry which is oreceded by es 
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other entries becomes number 1/7. 

The configuration file is read by MTS during the 
initialization process performed bv the JPL module. The 
filename is extracted from each entry and input to a routine 
which searches the mini-edisk directory. When a match occurs 
the minisdisk address for the file is read from the 
directory and entered ina virtual floopy disk map table. 
If no match occurs for a aiven configuration file entry, tne 
corresponding Jloaical disk number is marked not available. 
Any subsequent attempt to access that virtual disk wili 
result in the terminal altert DISK NOT AVAIL (E.3). 

The confiauration file may onlv ve modified when 
runninq under the Sycor operatina system. Svcor provides a 
data entry free form mode which allows the terminal opoeraror 
to examine and modify the contents of the file (S]. Extreme 
care must be exercised when updatina .MTSCNFG to align each 
entry properly in the file. MTS assumes the file will he in 
the proper format when read, and makes no attempt 970) 
validate individual entries. 

Since the information contained in the configuration 
file is of a permanent nature and can only be recreated with 
great difficulty, the file .MTSCNFG should never be deleted 
from the miniedisk file directory. In the event the file is 
deleted erroneously, a new file may be created under tne 
Sycor operating system using the RESTORE command and a 
backuo cassette labeled ".MTSCNFG DOUMP", The command is 
entered as 


hwiNepeotadRe 2=/CSS1 
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with s«MTSCNFG DUMP mounted in the cassette drive. This 
command will build a new file directory entry for .MISCNFG 
and establish a basic confiauration file with 32 entries of 
the form .DISKx, where x ranaes from 0 to 31. This basic 
file may then he edited as described ahove to reflect 


current file names and protection attributes. 


pee Virtual Floopy Disk Files 

Each virtual flopny disk resides on a hlock of 
logically contiguous miniedisk sectors. This block must be 
allocated usina the facilities provided by the 2 Cor 
operating system, specifically the command 

CREATE <filename> N=<file size> 
where <filename> is a1 to 3 character rare toc be entered in 
the miniedisk directory and confiaqurationrn filers, and <file 
size> is the length of the file in 512 byte mini-disk 
Seetors. For the standard 256K byte floppy aisk <file sgize> 
Pemgeays D2lce, i.e. (256 * 1024) /51e=51e. 

Where a physical floppy disk has a fixed canacity of 
256K bytes, an MTS virtual disk may have any convenient 
size. MTS assumes that the disk image is made up. of 
contiguous 128 byte floppy disk sectors starting with track 
0 sector 1+ proceedina throuah the 26 sectors of feack 0 fo 
track 1 sector 1, and so on until the virtual disk file is 
full. If the virtual cisk file size is less than S12. mini- 
femee sectors, less than 77 floopy disk tracks will be 
addressable. Conversely, if the file size exceeds 512, then 


more than 77 tracks will be addressable, uc to a maximum of 


101 





Poo tracks. In either case MTS automatically adjusts the 
upper bound based on the file size as shown in the mini-disk 
aarectory. 

It is important to note that MIS only recogrizes 
virtual floppy disk files which are enterea in the 
configuration file. The logical disk number associated with 
a given virtual flonpy disk file is aetermined by that files 
Besition in -MISCNFG. When the file is initially entered rn 
the configuration file a omrotection kev and vrotection 


attribute should also be entered, if desired. 
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D. MIS/USER TERMINAL INFFRFACE 


ive 


Terminal Interface Desiaqn 


The general format of each terminal display iS as 


follows: 


i sl” 63! 
oT | AAR 
1280-«BtCSs—~—SsSCi 
19200 UO Pes inc: © 255} 
[ae — L8H 
20000 vi A SRBY 
i tO ew 
ua eas RO Sit 


The numbers are decimal and spnecify character positions 


within the status line and display mut fer. 


ae Status Line 


The terminal status line is used by "TS to 


disolay three types of status information: 


(1) 


fe) 


we ) 


The current virtual drive and floppy disk assianments 
for that terminal. 

The size of the user's swap imace, i.e. the amount of 
memory space currently available. 

Error message alerts oroduced oy “TS system commands, 


or resulting from user proaram calls on the DISPLAY 
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MaGeservice routine (see F.c.). 
Phemstatus rime display format and contents are 


discussed in detail in section €E. 


b. Disolay Buffer 

The disolay buffer can hold uo to a maximum of 
Bre characters. The disolay buffer also acts as an innut 
merter, holding the inout data until the user's oragram 
requests it. Oue to the unavoidahle delays in user crogran 
response caused by swapntng and acqravated hy the relatively 
low data transfer rate of the mini-disk, the MIS terminal 
interface provides character echoitna and simple line editina 
features. This ensures reasonable respvonse times to key 
activation by the user. Thus, input data can mot be 
considered available to the user's proaram urtil an innut 
line termination character has been received hy MTS. To 
establish an inout buffer for a pDroaram, the user enters the 
data and terminates the line by hitting the NEWLINE or ENTER 
keys on the keyboard. This establishes that line as an 
input buffer available for orocessing by the user's Oroaram, 
See that the key combinations 'I/0 CTL M' or ‘SHIFT CR! 
(on the number pad) wil? also result in the termination of 
an inout line. Either of these keys, as wel] as NEWLINF and 
ENTER, may be used for line termination. 

Once an input buffer has been established the 
user may continue to input data on the next line. The user 
May use any of the line editina or other cursor contro! 


features on this new line of input data. However, this new 
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line may not be terminated until the user's program has 
processed the previous input buffer (see terminal alerts 
below). 

Each character output from the user's proaram is 
displayed at the current cursor position. Eden OUtotut 
results in all inout buffer pointers beina reset to the 
character position at the end of the output data. Thus» new 
1/0 will start this point. This imolies that if tne user 
had been in the middie of entering aata when the outnut 


occurred, it must be reentered. 


ce Terminal) Alerts 

The MTS terminal interface oroviges the user 
with either a visual or audio response to eacn kev 
depression. Normal visual response 18 ocrovided by display 
@geeetrne entered character and/or movement of tne displav 
eursor. PVeweeiso'ay “cursor 1S a blinktna underscore 
character which marks the current position on the screen. 
Data is always entered and displayed at the current cursor 
position. 

The audio responses consist of either a beep or 
click at the terminal. A terminal beep alert will be 
generated for any of the followina conditions: 

(1) An input buffer is waiting to be processed by the 
user's proqram and the terminal user attempts to 
terminate a new input line. 

(2) An attempt is made to move the cursor back oast the 


start of the current line. For example, attempting to 
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delete the orevious line or character after the line 
has been entered by a termination key will result in a 
beep. 

The terminal click alert is associated with the 
display scrollina feature. Since the display buffer also 
acts as an inout buffer, scrollina the displav when the 512 
byte display buffer is full could destroy input data which 
has not yet been orocessed. For examole, the user could be 
entering a 512 character strina. Unon termination of that 
Moeut tines, MIS will lock out scrollina until the user's 
program has processed the first 64 characters. This ensures 
mmaet the input data is not destroyed oy the  scrollina 
operation. This scrolling lockout 1s indicated to the user 


Sea terminal click alert. 


eae lermina!l Key Functions 

The terminal keys fall into five basic functional 
groups: keys for entry of normal character strings; keys 
which affect the interpretation of the inout kev character; 
input line termination keys; line editing and cursor contro! 
k@ySz and number oad keys. These keys and their functions 
are described in the followina subsecions. Within the 
function descriptions, “current oosition"” refers to tne 
current cursor position on the screen. Any reference to tne 
display of a character in the current position, also imolies 


that the current position is incremented by one. 
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Bee maracter String Keys 


KEY/SWITCH 


Special] 


Characters 


Tab/Skio 


b. Entry Mode Keys 


KEY/SWITCH 


FUNCTION 


See ci chs) 


FUNCTION 
Disolays the TAU Numeric 
character at the current 


PDOSItION on the screen. 


Disolays the jinnmut special 
character at the current cursor 


position on the screen, 


Displays the rn unt alphabetic 


characters at the current 
Gost 10n on the screen. 
Alphabetic characters are 


disolayea in upoer or lower case 
devending On the key mode (see 
SHIFT and FS C under Entry Maae 


Keys). 


Disolays a Chorizonal) tab syme 
bol at the current Oosiftfion on 


the screen. 


FUNCTION 


Defines the tnteroretation of 


keys for soecial LUNE fA1Ons as 
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P70 VCONTROL 


CE7 O07 CiL) 


Sole 1 


one 


Gefined in this section. 


Defines the interoretation of 

keys for special functions as 
Getimed. in this section. Also 
used in conjunction with the 
alphahetic keys to generate 


appropriate Ro@rimeomt rol. cote Sic 


Defines the interrretation of 
keys used for twa (2) 
characters. Also used to 
capitalize alsnabetic characters 
when the kev entry mode 1s lower 


case (see below). 


Sets or clears the alphabetie 
key entry mode to upper or lower 
case. FUMEE TONS eS a Shift kev 


~~ 


LOG. 


Cis Line Termination Keys 


KEY/SWITCH 
NEW LINE; ENTER; 
I/O CTL M; 


SHIFT CR; 


FUNCTION 
Terminates the current line and 
establishes the just completed 
input line as an PmOouUt buffer 
available for orocessing by the 


user's orogram. The cursor 1s 


(na 





PRRIDR RE SE | 


CT oC MD) 


disolaved at the brett most 


SBesition of the mext tine. 


Specifies thet the wmout line 
which it terminates 1s to be 
orocessed hy MIS as a system 


command. 


gd. Line Editinaq and Cursor Control Keys 


Bey /owlicr 


NEXT EMAT 


(Line Delete) 


BAC SPACE 


(Char Delete) 


poe ore (7 OC) At 


(Clear Screen) 


<--= (Cursor Left) 


e-->(Cursor Right) 


FUNCTION 
Deletes all eharacters from the 
current Host tome Eack to the 


Sioontaor. tne current. l ine. 


Deletes the previously entered 


emareacters 


Clears the display buffer (not 
Ureeestatus | lige) ana leaves tne 
current position at the upper 


left position of the display 


buffer. 


Moves the current position one 
to the left. Does not delete 
previous entry, but allows 


reentrye 


Moves the current DNOSItTION one 
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fo the rrant. Does not delete 
previous entry, but allows 


reentry. 


e. Number Pad Keys 

The number pad keys consist of 10 numeric digits 
and 8 ASCIT control characters located on the riaht side of 
the keyboard. The diaits function in the same manner as the 
Sener mnureric digits on the keyboard. The ASCII contro! 
characters are displayed when the SHIFT key 15 deoressed in 
conjunction with the anoprooriate key. The vonlyvcont ro: 
character which affects the disolay is SHIFT CR (see Line 


Termination Keys). 


3. MTS System Commands 
System commands are a set of commands whicn crovide 
the user with a means of communicatina with MTS from the 
terminal. These commands allow the user to loain to MTS; 
quit MTS; attach virtual floooy disks; protect, restrict, 
and unprotect virtual floopy diskss and soecify the virtual 


memory $1ze to be used. 


a. General Characteristics 
A MTS command sequence may be entered anvtime 
after the initialization or reinitialization of MTS. The 
user enters the desired command sequence, followed by the 
ERROR RESET key. This sianals the overatina system that 
there is an MTS command to be orocessed. Any errors 


detected in the command seauence will result in an error 





alert messaae displayed in the MTS message {Te \ Co mon the 
status leer. Section “eemcescrioes the MIS status line 


disolay and provides a summary of the error messaaes. 


b. Syntax Rules 
The following rules should be used to interpret 
the syntax for each system command aqiven in section D.3.e. 

(1) The command may be entered in upper or lower case. 
MTS converts the commands toa Wlerexe la case for 
processing. 

(2) Each entry in the command sequence must he  senerated 
by one or more spaces. 

(3) The entire command name may be used to scecify the 
command. However only the first letter of the command 
1S required, as indicated bv the underscore in the 
Syntax. MTS validates onlv the first letter of the 
command name. 

(4) Parameters are shown in lower case and enclosed by 
inequality signs (< >). Each parameter name is a 
variable which must be replaced by the appropriate 
character string or decimal number entered by the 
user. 

(S) Parameters may be required or optional, dependina on 
the command. Optional omarameters are specified by 
enclosing the parameter in brackets ((C 1). tf a 
parameter 1S desiaqnated as optional, it may be omitted 
from the command sequence (see section D.3.d). 


(6) The designation (<disk nr> (/<key>]] indicates that 





(7) 


(8) 


the entire parameter seauence is optional, and. that 
<disk nmr> may appear without /<key>. The converse, 
however, 18 not true. 

If parameters are entered in a command sequence they 
must be in the order specified in the syntax. For 
example, <disk nr> may not be entered before <drive 
Ttr>. 

The notation (error reset) at the end of each command 
strina is a reminder to the user that each MTS command 


sequence nust be terminated by the ERROR RESET key. 


— Parameter Definitions 


The system commands have four types of 


oOarameterses: 


(1) 


ec ) 


> ) 


(4) 


<drive Itr> = must be ore of the alohabetic characters 
A through H. It svecifies one of the eiaht virtual 
disk drives availaonle to a terminal user. 

<disk nr> = must be a decimal number in the range 
O51. It smecifies one of up to 32 virtual floony 
disk files on the Sycor miniwzdisk. 

/<key> = a string of not more than four characters, 
always preceded by the special character ‘'/' which 
designates the string as a key oarameter. Al] Valid 
ASCII characters are acceotable includina blank, slash 
(/), and other special characters. 

<memory size> = must be a decimal value in the range 0 
to 48, which specifies the user's swao image size in 


kilobytes. The default value for a user SwaDd iImaae is 


tai 





16K. 


d. Default Parameter Values 

Certain svstem commands allow the user to omit 
the <drive JItr> and/or <disk nr> parameters. In these 
cases, MTS determines the anprooriate drive letter and disk 
number by scannina its allocation tables. for the first 
available virtual drive or virtual disk, as aporopriate. If 
one is found, it is allocated to the reauestina user. 
Otherwise the approoritate error messane is displayed. 

The <key> parameter is optional only if the disk 
requested has no protection attributes specified. Thus there 
is no default <kev> value. As previously mentioned, the 


default <memory size> parameter is 16K, 


e. Commana Descriptions 
The following oagqges describe in detail each of 
the system commands: 
(1) ATTACH ' 
(2) LOGIN 
men) «60PROTECT 
(4) QUIT 
mo «6ORESTRICT 
mop, «€(SIZE 


ero)6CUUNPROTECT 





SYSTEM COMMAND ATTACH 


mermetions 


To attach a virtual floppy disk ova Vif tual oc tsk GOrive 
for use by a user at a specific terminal. 


Syntax: 


ATTACH [(<drive I]tr>] [<disk nr> {[/<key>]] (error reset) 


Description: : 


This system command simulates the ohysical overation of 
loading virtual disk <disk nr> into virtual drive <drive 
mer >. All parameters are onotional, section ee Sos. 
describes the default values when octional parameters 
are omitted. 


Error Messaaes: 


INVALID CMD 
ORIVE NOT AVAIL 


Syntax error Im Command sequence. 
Drive letter has not been 

snecified and there 1s no arive 
oresently available for assignment. 
Disk number entered 1S areater 

than 31. 

Disk number specified 1s eresently 
allocated with read/write access to 
another user. . 
Drive letter entered 1s not one of the 
letters A through H. 

Either disk number has not been 
specified and there is no aisk 
presently available for assignments or 
the snecified disk is not 
available for assignment. 

KEY ERROR - The specified disk reauires a key 

and either a key has not been entered 
or the entered key did not match. 


DISK NR ERROR 


ProkK IN USE 


DRIVE LTR ERROR 


DISK NOT AVAIL 


Examples: 


ATTACH A 3 /USR1 
A C 

secach S /vd#l 

a 1 


q@@ ét 





SYSTEM COMMAND LOGIN 


Functions: 


Links the terminal) user to MTS and orovides the le he er 
load of the user's program or operating system (default 
system is CP/M), 


Syntax: 


LOGIN [<disk nr> [/K<key>]] Cerror reset) 


Description: 


This system command notifies MTS that the reaquestina 
terminal 1S Now active, and simulates the physical 
coldestart bootstran operation of the user's system. 
The bootstrao load always takes place from virtual drive 
A. The virtual disk (and associated key, if any) 
attached to this drive may be specified as a parameter. 
The default is disk nr 0, which 18 a read onlv disk and 
always contains the CP/M operatina system. 


Error Messaaes: 


DISK NR ERROR - Disk number entered iS areater 
tims ol « 

rok IN USE - Disk number soecified 1s presently 
allocated with read/write access to 
another user. 

DISK NOT AVAIL - The snecified disk is not available 
for assiqnment. 

HARDWARE ERROR = Abnormal comoletion status was 
returned by the miniecdisk controller 
following awrite oneration. This 
may indicate that the last virtual 
disk written to was not closed 
properly and data has been lost. 

INVALID CMD - Syntax error in command sequence. 


Examples: 


LOGIN 3 /D1 

i 15 

mogin e353 /d2e> 
| 





SYSTEM COMMAND PROTECT 


Function: 


Adds the read/write protection attribute to the 
specified virtual disk. 


Syntax: 


PROTECT <disk nr> /<key> (error reset) 


Peseriotion? 
This system command provides the user with the means for 
on=line assianment Oteae Orotrection <key> to <disk mre. 
This protection may also be added off-line using the 
mecor 840 system software (see section C.5). 

Emror Messaces: 


DISK NR ERROR 


Disk number entered 1S areater 
fran oS). 


HARDWARE ERROR Abnorma! completion status was 
returned hy the minizrdisk controller 
following a read or write operation. 


INVALID CMD Syntax error in command sequence. 


KEY ERROR - The soecified disk is already 
protected. fo chanae protection kevs 
use UNPROTECT with current key and 
then PROTECT with new key. 


Examoles: 


eeOlTECT {| /VFD5 
protect 10 /key!] 
9 ec /ukted 





SYSTEM COMMAND 


Functions: 


GUIT 


Terminates Gane ewterminal user's link to MIS. 


Syntax: 


QUIT Cerror reset) 


Beseriptions: 


This system command notifies MTS thas the requestina 


terminal 1S no 


Error Messaaqes: 


HARDWARE ERROR 


INVALID CMD 


Examoles: 


QUIT 
quit 
Q 
q 


longer active. 


Abnormal completion status was 
returned by the miniedisk controller 
following a write operation. This mav 
indicate that the last virtual disk 
written to was not closed orooerlyv and 
data kas heen lost. 


Syntax error in command seauence. 





SYSTEM COMMAND eee GG 1 


mere trons 


Adds the read restriction attri oute to the specified 
virtual disk. 


Syntax: 


peo tRIC?! <disk nr> /<kev> (error reset) 


Description: 


This system command provides the user with the means for 
on=line assignment of a "read only" restriction to <aisk 
nmr>. This allows the user to spepecify a previscusliy 
protected virtual flopopv disk as available to other 
users for read only access. 


Error Messaaqes: 


DISK NR ERROR Disk number entered 15 created 


tham 31. 
INVALID CMO - Syntax error in command seauence. 
KEY ERROR - The soecified disk reauires a key 


and either a key has not heen entered 
or the entered key did not match. 


Examples; 


MestTRICT 3 /ID 1 
R 4 / 104 
mestrict 15 /usr3 
foto / | 





SYSTEM COMMAND 
mune tions 
Specifies the memory size to. be 
terminal user. 
Syntax: 
SIZE <memory size> (error reset) 
Mescription: 


This system command sets the size of 


Image. The range of values is 0-48K. 


etter ltogin 3s 16K, 7s entered. 


Error Messaaes: 


Sal 212 


allocated ave) the 


the user's Swan 


The default vaue 


INVALID CMD - Syntax error in command sequence. 


OUT OF ROUNDS - Either the $size oarameter enterea 
does not fall im the range of 
O-4R5 or the Sycor 440 Swan file 


1S not larqe enouah 


to hold this 


Si gemoweap wmaqe (see section C25). 


Examples: 


SIZE 24 

or 3ec 

size 48 
S 0 





SYSTEM COMMAND UNPROTECT 


mmc t ion: 
To remove a previously entered protection key from the 
specified virtual flopey disk. 

Syntax: 
UNPROTECT <disk nr> /<key> (error reset) 

Description: 
This system command orovides the user with the means for 
on-line removal of all orotection attributes from <disk 


nr>. This orotection may also be deleted offline wusina 
mee ovycor S40 system software (see section €.%). 


Error Messaaces: 


DISK NR ERROR Disk number entered 15 areater 


timam > 1. 


HARDWARE ERROR 


Abnormal comoletion status was 
returned by the miniedisk controller 
following a read or write onoeration. 


INVALID CMD Syntax error in command seauence. 


KEY ERROR ~ A protection key 18 required and 
either no key was entered,s or 
the enterea key did not match. 


Examples: 


UNPROTECT 18 /NR 9 
U le 0964 
unprotect 7 /0Ovfd 
rm 9 /0278% 


| ee Fg | 





fmeeeM tS STATUS LINE MESSAGES 


The MTS onverating system utilizes the first 
termina} 


line of each 
for system status and error messaqge disnolays. 


The 
status line 1s 64 characters in lenqth and is divided into 
three disolay areas as Shown below. 
SATUS LINE 
0 39 40 47 48 nk 
Vee DD MS Mee Sue, 
where 
VFD = Virtual Floopny Disk Status Display 
MS = Memorv Size Disolay 
MSG - Error Messace Disnolay 
ia VMinuwuolmr roppvenisk otatus fisolay 
This display contains information on the virtual 
drive and disk assignments currently in effect. 
attached virtual 


For each 
floppy disk 


the followina 
displayed? 


wil] be 


(1) drive letter 


(2) disk number 
(3) restriction 


indicator (r or blank) 
For example, 


if the user has attached disk number 3 to drive 
A and disk number 2S (which is restricted) to drive Cy, the 
status display would apnear as follows: 


lel 





0) 10 By 


;A=03 C=e5r 
ee Memory Size Disolay 
The center of the status line displav shows” the 
current memory size for that user and the "MIS" hneader. For 
example, if the svstem default memory size were being used, 


the display would anpear as follows? 


4Q 47 


16K MTS 


3. Error Messaaqe Disclay 
All MTS syster commands are validated anq an error 
alert generated if any syntax errors are found. The Jast 16 
positions of the status line are reserved for these 
messages. A valid system command will clear the error 
messaqe display of any orevious error alert. The followina 


1S a Summary of system error messaqges. 


MESSAGE MEANING 
(Blank Display) Initial condition: also the status messaqe 
area is cleared following the processina 


of a valid system command. 


DISK IN USE Disk number specified is presently allo- 
cated with read/write access to another 


usere 


Wega 





DISK NOT AVAIL 


DISK NR ERROR 


Meave LTR ERROR 


DRIVE NOT AVATL 


HARDWARE ERROR 


INVALID CMD 


fey ERROR 


OUT OF BOUNDS 


Either the disk number has not been speci- 
fied and there 1S no disk presently 
available for assignment? or specified 
disk number is not available for 


assignment. 


Disk number entered is greater than 31. 


Drive number entered is not one of the 


Letters e ACh rovan tt. 


Derive letter has not been specified and 
there iS no drive presently available for 


assignment. 


Abnormal completion status was returned by 
the minicdisk controller following a read 
or write operation. May indicate hardware 
errors on perioheral devices as additional 


devices are included in the system. 


Syntax error has heen detected in the 


command sequence. 


The soecified disk requires = key and 
either a key has not been ertered or the 


entered key did not match. 


A numeric ocarameter has heen specified 
which exceeds the valid tounds for that 


parameter. 
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TASK DELETED 


When RECOVERY is specified during system 
initialization, this messaae is displayed 
at the terminal which was executina when 
the system failure occurred. It indicates 
that this terminal user must reestablish 


the environment. 
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Pe MIS/ZUSER PROGRAM INTERFACE 


1. Program Interface Design 

MTS was designed to provide a etimeshared, virtual) 
8080 microorocessor environment for microcomruter systems 
development. The term virtual iS appropriate here hecause 
the user actually interfaces with “YS fOr many Services 
normally provided by hardware in a dedicated CPU 
environment. A software interface between user proarams and 
the Sycor 440 hardware is necessary 1n order to allocate the 
hardware resources equitably and efficiently, while at the 
same time satisfyvino the service reauirements of several 
competing user nrogrars. 

The MTS/user crocram interface consists of a set of 
service routines which may be called ty a user orogram 
through a sinale entry point to perform terminal [/N, access 
virtua) f loopy disks, Or modify the user’s virtual 
environment. The design was heavily influenced by the CP/M 
operating system which uses a similar scheme for J/0. 

The set of service routines may be loaically divided 
into two types of calls onMTS. The first tvoer svsten 
calls, perform the same functions for a user program as 
system commands provide for the user at a termina) (D.3). 
The functions deal with modifyina the user's current virtual 
environment by chancing memory $12e, attaching various 
virtual disks to virtual drives, or even loagina on ana off 
the system. Service calls are the second type of call 


Provided by the MTS software interface. SeEeryree Ca) )Sae-ore 


Loca) 





used to perform terminal [/0 and access virtal flonoy disks. 
A call to MTS takes the form 
<value> = MISES n<oann>) 
The first argument, <fid>, is a number from 0 to 17 which 
identifies the function reauested. The <oarm> argument may 
be a oarameter value, if only a single owarameter is 
reauiredr, oor the address of a narameter list if more than 
one parameter 18 required. In each case “TS returns <valur> 
upon completion of the reauested operation. This returned 
value may be an ASCII character coder, an error coder, or. in 
several cases have no sianificance. Both svstem calls and 
service calls are formed as described above. The syntax and 
[mer iom of each cal! are described in the followina 


sections. 
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ce. System Calls 
All system commands available to a user at a 
terminal are also available to a user proaram throuoh svstem 
calls. An additional call is provided which will display an 
appropriate terminal alert at the user's terminal if entered 
Mem an error code. Table lt summarizes the required 


arguments and return values of each system call. 


TABLE 1 


SYSTEM CALL SUMMARY 


FID NAME PARM VALUF 
() ATTACH hey Sit | error code 
1 DISPLAY MSG Spror code none 
Ce LOGIN list error code 
3 ao Tee list error code 
Mt QUIT none none 
=) RESTRICT ar Sst enror kode 
6 SEZ size error code 
7 UNPROTECT Dares t error code 


Qe Arguments 
Each system call is identified by a number which 


} 
Mimo associates with a particular service routine. {In 


addition to this function identifier, MTS may require one or 
several additional carameters to oerform the  reauested 
service. When more than one parameter is required, MTS must 
be passed the address of a byte vector containina these 
parameters. Each system call requires that this vector 


Le7 
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conform to some fixed format. In qeneral each byte of the 
vector will contain some numeric value or an ASCII character 
code, but situations may arise when an optional parameter is 
not specified. In such cases the corresponaina byte in the 


parameter vector must be filled with the value FFH. 


be System Call Descriptions 


The following waaes describe in detail each 


myetem call. 
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SroreEM CALL ATTACH 


mre €10N 


To attach a virtual floppy disk to a virtual disk drive 
for use by a user at a specific terminal. 


Arguments: 
FID = Q 


PARM = address of parameter vector 
byte 0: drive number where A=0, B=1, etc. 
byte !:; disk number - 0 to 31 
bytes 2°53: orectection key = 0 to 4&4 ASCIT characters 


bescrioption: 


This call simulates the physicel operation of Yoadina 
virtual Gusta CONSK fro Into virtua! drive <drive nmr. 
All parameters are optional. Prats kKmang/or cr) Ve"rre ls 
not specified MTS searches the disk or drive man table 
resoectively for the first available entry. A 
orotection key VomOniverecuimed  )t the virtual disk ets 
be attached has tfreen assianed read/write orotection. 
The cal! returns an error code upon comerlietion. 


Error Codes: 


1 = Operation successful 

ec = Either disk number has not been soecified and there 
is no disk presently available for assignment; or 
the specified disk is not available for assianment. 

3 = Disk number specified is oresentliy allocated with 
read/write access to another user. 

4 = Disk number soecified is aqreater than 31. 

5 = The specified disk requires a key and either a key 
has not been entered or the entered key did not 
match. _ 

6 - Drive number soecified is areater than 7. 

10 = Drive number has not been specified and there is no 
drive presently available for assianment. 
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SYSTEM CALL DS ey 


Functions: 


To display a terminal alert in the Status message 
of the user's terminal. 


Arguments: 
plID = | 


PARM = error code 


Description: 


This cal! takes an error code as inout and displays 
corresponding nredefined terminal alert message on 
user's terminal. The DISPLAY MSG system call prov 
the only way for auser to displav messages on 
terminal status line. No value is returned by 
system call. 


eetiton: 


- blank 

- INVALID CMD 

- DISK NOT AVATIL 
- DISK IN USE 

- DISK NR ERROR 
KEY ERROR 

- DRIVE LTR ERROR 
- QUT OF BOUNDS 

- HARDWARE ERROR 
- TASK DELETED 

- DRIVE NOT AVAIL 


OOWOUNOCOUWOEOWNM— O&O 
6 


— 
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SoTEM CALL LOGIN 


mamctions 


Reinitializes the user's MIS environment and rehoots the 
user's system from drive A. 


Arguments: 
BID = e 


PARM = address of parameter vector 
Pyee Oo. Gaisk number = 0 to 31 
bytes 1-4: orotection key = 0 to 4 ASCII characters 


Description: 


This system call creates a reinitialized “IS environment 
for the user orogram. Memory size is set to 16 and the 
soecified disk, 1f any, will he attached to drive A. if 
No disk number 1g soecified, disk number 0 containina 
the CP/M system is attached. Drive assianmert = and 
memory size will be disclaved on the status line of the 
user's terminal. The user system 15s then rebcoted from 
drive A. 


error Codes: 


0 = Operation successful] 

@ - The specified disk is not available for assianment. 

3 - Disk number specified is currently allocated with 
read/write access to another user. 

4- Disk number specified is qreater than 31. 

5 - The specified disk reauires a key and either a «ey 
has not heen entered or the entered key did rot 
match. 

8 = Abnormal completion status was returned by the 
miniedisk controller following a write operation. 
This may indicate that the last virtual disk 
written to was not closed oroperly and data has 
been lost. 
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SYosteM CALL 


Functions: 


Logs the user off MTS. 


Arguments: 
FID = 4 


PARM = none required 


Descriptions: 


QUIT 


This system call notifies MTS that the reauestina user 


proaram 1s no lonaer active. font rot will 


returned to the user oroaqram. The user must 


through the terminal to regain system facilities. 


Error Codes: 
w=" Ooeration successful. 


@ = Abnormal comoletion status was returned 


not be 
loa a 
hy ne 


Danie oiSskaecontrolier following a write oneration. 
This may indicate that the last virtual disk 


written to was not closed oroperly and 


data kas 


heen lost. Piece nise error code 1S returned, the 
termina] alert HARDWARE ERROR 1 automatically 


disolayed in the status message area of the 


terminal. 


ES fe 


user's 





SYSTEM CALL SV Ze 
Function: 


Set the amount of memory available to the user. 


Arguments: 
m1) = 6 


PARM = memory size tn kilobytes 


Descrotions: 


This system call adjusts the size of the user's Swan 
imaae to the snecified value. The value must fall] in 
the ranae 0 to 48, and also must not be aqresater than the 
size of the swap file associated with the user's 
terminal. 


ereror Codes: 


0 = Operation successful. 


JT oe- Fither specified size exceeds N&K, or a value less 
than 4BK exceeds the size of the available swap 
file. . 
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3. Service Calls 


The MTS environment currently provides a virtual 


Ge 


terminal as the primary IJ/0 device and virtual flopry aisk 


drives for auxiliary storaae. Access to poe) o f these 


virtual devices is throuah MTS service calls. A summary of 


the service calls sShow!ng parameters and returned values 


given in Table e. 


TASES 2 


Sey LOE CALE SUMMARY 


FID NAME PARM VALUE 
8 TERMINAL STATUS none true/false 
9 READ TERMINAL none character 
10 WRITE TERMINAL character none 
11 WRITE PRINTER character none 
Le SELECT ORIVE Grive nr error code 
| SET DMA dma address error code 
14 SET TRACK track nr none 
i> Seer e for sector nr error code 
16 READ FLOPPY none none 
17 WRITE FLOPPY none none 


ae Virtual Terminals 


1S 


The MTS virtual terminal simulates the operation 


of a serial half-duplex console device. Simo e fence fi 


characters may be passed from the terminal keyboard to 


user prooram, Or from a user orogram to the terminal 
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Misplay. A service call to MIS is required to pass’ each 
character. MIS also provides a terminal status service cal] 
which allowS a user proaram to test the status of a 
terminal. 

The user should keep in mind that characters are 
actually being passed between his oroaqram and the terminal 
display buffer (D.1.b). This means that input need not »he 
echoed by the user's orogram since it already arpears on the 
displaye Simple Jine editing is also provided by MTS on the 
input data prior to makina that data available for 
processing by the user's proaram, 

The user can directivy contribute to improved 
System resoonse by oroper use of the terminal service calls. 
It iS common oractice when writing conversationa] oronrams 
to implement a “aet character" routine to hangale input from 
the terminal. Normally this routine does Jittle more than 
repeatedly test the terminal status until it finds input 
waiting. In the MTS environment a more efficient method of 
accomplishing the same goal is to immediately read from the 
terminal without testing for status. If inout iS waiting, 
the first character will he passed immediately. More 
importantly, if there is no input waiting, MTS will block 
the user's orogram until a character is entered at tne 
keyboard. The blocked orogram may be Swanped out and tne 
CPU allocated to another user. This method of implementing 
conversational programs takes advantage of unproductive 


waiting time In one user proaram to service additional 


userse 








b. Virtual Flopov Disk Drives 

The MTS virtual floppy disk drive provides 
auxiliary storace for user programs on virtual flopny aisks. 
These hard-=sectored disks have 128 bytes per sector, 26 
sectors per track, and a maximum number of tracks determined 
Pyethe size of the file containina the disk image (C.5). 
Each user has eight drives available for dedicated use. 

Drive A 1s activated when the user loas jin and 
serves as the user system load device. In a orocess which 
Simulates a cold-start hbootstranm loag the first four sectors 
on track 0 are read into the user's memory space at location 
4QOO00H,. MTS assumes that these sectors contain executatles 
code which wil] load the remainder of the user's system. 
Unless another oa1isk 1S Sonecified in tne LOGIN command 
strinar, a read-only disk containing the CP/M operatina 
system will be attached when drive A is activated. 

The user may activate any or all of tne 
remaining virtual drives by attaching a virtual disk. This 
is accomplished from the terminal by entering the ATSACH 
system command or directly from the user's SroOogran OY a cal) 
to MTS. Although no direct method for detachina a virtual 
disk jis provided by MTS, the same effect is produced 
indirectly by overridina the current drive assianment with a 
second ATTACH command. When the second floppy disk is 
attached MTS closes the previously attached disk and 
releases it for use elsewhere. 

Data transfer between a virtual disk and a user 


program utilizes a 1°8 byte buffer in the user's program 
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space called a DMA huffer. The name is derived from. tne 
nature of the transfer overation: to the user proaram it 
appears that data transfer is by direct memory access. 
Before the user oroaram can access a particular 
virtual disk sector the user muSt specify a compnlete sector 
address and a DMA buffer. A complete sector address consists 
of drive, track, BOMEect oF numbers. Note that “TS will not 
allow a virtual drive to he selected until a disk has been 
attached. A DMA buffer is defined hy its base address. ™IJI5 
provides a service cal] to enter each of these four values. 
Once a value has heen entered it will be used for all 
subsequent virtual disk accesses until redefined by a second 


service call. 


oar Arguments 
service calls have the same form as other calls 
to MTS. A numerical function identifier is associated with 
each call to identify the service desired. The second 
argument 18 a sinale parameter in most casess although 


several of the service calls renuire no second araument. 


dG. Service Call Descriotions 
The following paaqes describe in detail each 


meaividual service call. 
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SemviCe CALL TERMINAL STATUS 


mwnctions: 


Interronate the status of the user's terminal. 


Arguments: 
pep = § 


PARM = none required 


Description: 


This service call returns a loqical value answerina the 


gestions. 1s terminal inout waiting?” TERMINAL STATUS 
should not be usec in those situations where no further 
processina can he accomplished until terminal input is 


available. In such a case it 18 more efficient to use 
the READ TERMINAL service call to allow orocessing of 
other user tasks while waitina. 


Values 


00h = all terminal inout norocessed 


FFH = terminal inout waitina 
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BeRVICE CALL 


mamctions 


READ TERMINAL 


Read the next available character from the user's 
terminal. 

Arguments: 
FID = 9 
PARM = none required 

Description: 
This service call oasses the next available ASC it 
emaracter from the user's terminal disolav huffer to the 
user program. The maximum S12°6 egyene ue line 1s alee 
characters. Each inout line is terminated by a carriage 
return. It is mot necessary for user procrams to echo 


input characters since they are already cisrlaved on tne 


user's terminal 
proaram. 


Values 


peesimave ASCIi!l character <- 


indicated by the 


ODH). 
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Ber VICE CALL WRITE TERMINAL 


Functions 


iment ema ehnateacter to the user’s terminal. 


Arguments: 
FID = 10 


anv asi nagte ASCII character 


Description: 


This service call passes the soecified character from 
the user orograr to the terminal disolay buffer for 


disolay. Carriage return (ASCTI = ODH) returns the 
euipSOr to first opesition of the current line. Line Feed 
(ASCII = OAH) moves the cursor down one line. Each 


outout line will normallv be terminated by the CReLF 
combination. 


Value: 


None returned. 
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pexVICE CALL ee Ce x ley fe 


mumetions 
Selects the virtual floopyv disk drive to be used mn 
subsequent floppy disk accesses. 

Arguments: 
FID = ie 


PARM = drive number where Az=il, B=e, etc. 


Description: 
This service call selects one of the eigkt Virtual 
floopy disk drives available to each user nrogram for 
use in subsequent flonpy disk accesses. Petore a. arive 
can be selected, a virtual disk must be attached. 

Error Codes: 


0 = Ooeration Successful. 


6 - Drive number Soecified VST Greater than sf. Selected 
drive 18 changed. 


10 - Drive specified is not in use. Indicates teat no 


virtual disk has heen attached to the specified 
drive. Selected drive is unchanaed. 
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SERVICE CALL Se 1 opie 


Functions: 


Sets the base address of the 128 byte DMA buffer to be 
used in subseauent floony disk accesses. 


Arguments? 


FID =13 


PARM = base address of DMA buffer 


Description: 


The DMA buffer recuired to access a virtual floppy aisk 
must oe a conticuous block of 12°83 bvtes located in the 
user's memory sovace, i.e. with base address oareater 
eoan FOO00H. Specifying a NMA address areater than or 
equal to FFOOQH will have unoredictable results, but can 
normally be expected to cause a esvstem crash and 
subsequent deletion of the user's task upon recovery. 


Error Codes: 
0 - Operation successful. 
7 - Address specified is less than the base of user's 


memory soace. Current DMA address remains 
unchanaed. 
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SemVICE CALL Siege nick 


Functions: 
Sets the fligiotiy sci s k track number to be used 
subsequent virtual floppy disk accesses. 

Arguments: 
fap e= 1 4 


PARM = track number = 0 to 256 


Description: 


was Service call sets the track number to be used 


mn 


mn 


SUubSequent floopy disk accesses. Values mav ranae from 


0 to 256. The value cannot be validateag until tt 


ie 


associated with a virtual floopy disk number; therefore, 
No Vane) Gait ion is oerformred until a read or write 


operation is requested. 


Value? 


None returned. 


143 





seeVICE CALL Soe C UChr 


mamctions 
Taeomunemmantoo@y — OVSk Sector number to be used 
subsequent virtual floopy disk accesses. 

Arguments: 
Ero = 15 


PARM = sector number - 1 to 26 


Descriptions: 


This service call] sets the sector number to be used 


mn 


a 


subsequent virtual floppy disk accesses. Since each 


floopy disk track contains ec6 sectors numbered from 


to 


Cb, this value cannot be less than 1 nor qreater than 


cb. 


Error Codes: 


e= Operation success ful <« 


7 = Sector number specified is less than 1 or oareater 
them co. Current value of sector number remains 


unchanaed. 
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BeRrVICE CALL READ oF OPP Y 
mince tions 


Simulates reading a 128 byte sector from a floooy disk. 


Arguments: 
FID = 16 


PARM = none required 


Descriotion: 


This service call simulates reading from a floopy disk 
by mapoing the current drive, track, and sector numbers 
into a miniwrdisk address; reading the minisdisk sector 
meco 8 hutters and moving 1c8 bytes from the minic-disk 
buffer into the current DMA buffer in the user's memory 


space. Errors may occur at two points in the process. 
If the calculated miniewdisk address falls outside the 
bounds of the virtual disk file attached to tne 
specified virtual drive, tt indicates an error in tne 
snoecified track number. EfrOors may oa'SoO —OCcCUur Gurina 
miniwedisk read ano write operations. A user nragram 


must consider such hardware errors as trrecoveratie 
since MTS provides insufficient information to determine 
the cause. 

Error Codes: 


0 - Operation successful. 


7 © Calculated miniedisk address out of bounds. Pras = 
able error in specified track number. 


8 = Abnormal completion status was returned by the 


miniwzdisk controller following a read oor write 
operation. 
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See VICe CALL Kikmeteee LO Ry 


mumetions: 


smuUbates Writing a ic8 oyte sector to a flopny disk. 


Arguments: 
FID = 17 


PARM = none required 


Mescription: 


hmys service call simulates writing to a floppy disk by 
mMmapoIing —~the current drive, track, and sector numbers 
Into a minisedisk address; reading the minisdisk sector 
into a buffers and moving 128 bytes of data from the 
current DMA buffer in the user's memory space into the 
miniedisk buffer. Errors may occur at two odoints in the 
process. If the calculated minisdisk address’ falls 
outside the bounds of the virtual disk file attached to 
mmewsoecitfied virtual drive, it Indicates an error wn 
Hae specified track number. Frrors may alSa occur 
during miniwaisk read and write operations. The user 
should interoret such hardware errors as Indicatina a 
bad sector on the virtual floopv disk and try reneating 
the operation with a different floopv disk sector and 
track combination. 


error Codes: 


0 - Operation successful. 


7 - Calculated mini-disk address out of hounds. a Roo= 
able error in specified track number. 


8 - Abnormal completion status was returned by the 


miniwdisk controller following a read or write 
OD-e.fat ion. 
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G4. Catling Procedure 

All calls to MIS, whether system calls or service 
calls,e are made through a Sinale entry point at location 
COOOH. Each call takes two arguments: the TUG tO a 
identifier in register C3 and a parameter value or address 
in reaister pair ODE. In those cases where the second 
argument 1S only a single byte the contents of the P/ 
register are iqnored. 

Each call to “TS returns a value in the A renister. 
This value may be an error code, an ASCII character code, or 
zero. The value zero is returned by those routines whose 
value has no significance such as WRITE TERMINAL or SET 
TRACK. 

Note tnat "the recister assianments for araouments and 
returned values conform to the PL/M convention for nassina 
parameters. The followina examoles illustrate the callina 
procedure for 8080 Assembly Lanquaae, ML20, and PL/M in the 
MTS environment. Each example illustrates the seauence 
required to read floopy disk sector ee, track 435 on drive Pr 


into a DMA buffer at address 4100H, 


ae 8080 Assembodly Lanauaae 
When writina in 8080 assembly lanquace MTS 1S 


mecessedo hy as direct call to the MTS entrv point: 


MTS EQU 2C000H 
MVI Cree POs Le 
MVI Eye DRIVE NR = 2 
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CALL MAES Poeeetie OR IVE 


MV I C,1i3 ,FID = 13 
sat D,4100H 7,DMA ADDRESS = 4100H 
CALL MTS 7SET OMA 
MVT C,14 ,7FID = 14 
MVI bE,43 ,TRACK NR = 43 
ee ae MTS yoeR. TRACK 
MV T OF as: Pe Lom= 15 
MVI Eeca POECTOR NR = ee 
CALL MTS Zoe EC TOR 
MV I C716 7FID = 16 
CALL MTS ,READ FLOPPY 
MV I Crls r,FID = 15 
MV I Ev 5 *,CHANGE SECTOR Nk 
CALL MTS SSS oes © 1 Glin: 
MV I C,16 pr ID cS. 16 
CALL MTS ,READ AGAIN 
Oe WMS 0 


The readibility of ML&80 source ocroarams may be 
memramcec by defining an “8&0 macro for each cal) to MTS used 
in the program. The followina code seqment contains several 


examples. 


PTACRO MIS *ec000K*] 
MORO SELECTSORIVE ONR ' 

C = le; —€ = [DNR)+ CALL [MTS] °] 
[MACRO SETSDMA DMA ! 

C = 137; DE = [DMA]; CALL [MTS] 'J 
[MACRO SETSTRACK TNR ! 

C = 145 — = (TNR); CALL (MTS) '] 
(MACRO SETSSECTOR SNR ! 

Geel, @ = (SNRJ?7 CALL [MTS] °] 
[MACRO READSFLOPPY ' 

C = 167 CALL (MTS) '} 


eo eCete ee ocrle TE OoEC TOR ADDRESS AND DMA BUFFER */ 
POELECITSDRIVE *2'), 

Poel SOMA al 00H"); 

([SETSTRACK '43'1; 

Hoe SoeCIOR  ~ ee"); 

[READSFLOPPY]; 





/*x* INCREMENT SECTOR NR AND READ AGAIN x/ 
(SEI SSECTOR ' 25"); 
(READSFLOPPY]); 


Cu PL/M 


TKK RII KK KK KKK KKK KK RK KKK KEKE KHIR KKAKKAKAKK AK KKK KKK / 


/* SAMPLE PL/M PROGRAM SEGMENT * / 


LKR KKK KKK KR RK KK KARR K AK KKKEKKAKAKK ARK AK K KK ARKEA KS / 


4000H: 
BoeER: PROCEDURE, 
DECLARE 

OD Prep A EY LITERALLY", 

MTS LIT "e000", 

See) oOR Ive ee iT Bl iceacs 

SETSDMA NF eat 

SETSTRACK LCA ‘14', 

Jentonc 1 OR LIT ol +e 

PEARSE eOPPY = UT y fh ona 

Pio laa y pMoGe LIT eS cr 
LRKKKRKRKKERAKE KKK KKK KKK K KKK Ka KAKA KAKA / 
/ * ioe ciake cee PrOCEDURES 77 


LKR RK KK KEKE KKK KR KK KHER K KKK KKK REE KK KEKE AK KK KKK KR AKE / 


MTS1: PROCEDURE (FI1D,PARM); 
LRKKRRK KK KKK KKK KKK KKK KKKKRKKKK KAKA / 
4x PROVIDES THE MTS INTERFACE FOR x / 
/x* FUNCTIONS WHICH 0O NOT REQUIRE A x/ 


7x RETURN VALUE. * / 
een tO = MTS FUNCTION 10D * / 
/* PARM = PARAMFTER OR ADDRESS&«/ 
/* UE rama VeErER EESI. */ 


LRRKKKKKKRKAARKKKK KKK KKK KKK KAKA KR aK KK KKK / 
CeGEAReer tO BYTE, PARM ADDRESS; 

GO TO MTS; 

END MTS1; 


MTS2es3 PROCEDURE (FID,PARM) BYTE; 

LKR KKK KR KKK KKK KKK KER KKKKKKKK KK KK / 
Paar ROvVEVES WHE MTS INTERFACE FOR x / 
/* FUNCTIONS WHICH REQUIRE A VALUE) x/ 
4x RETURNED. INPUT PARAMETERS ARE x / 
LATHE OAME AS IN. MISSI. x / 
L&R RK RK KKK KKH KKK KRAKKAKKKKKR KKK KY / 
DECLARE FID BYTE, PARM ADDRESS; 

GO TO MTS; 

END MTS2; 


149 





TRI KKK IKKE RK IR KIRK IKK KKK IRR KI KKK HK KERR KAKARKK KARA RK / 


Bee eO ley uber ee fe SECTOR ADDRESS AND DMA BUFFEP *x«/ 


LK KKK KKK RR KKK IK RK KKK KKK RK KKK KR KKK KKRKKKKAKK AK KK KKK / 


Meeks MISI(SELECTSORIVE, ¢), 
CALL MTSICSETSDMA, 4100H); 
CALL MTSI(CSETSTRACK, 43); 

Chrome toh(SelSoetyOoR, cc); 


LIKI IKK IK KKK IKK KK KK RK KKK RK KEK KK KR KKK IK KR IEKKKKEKRK KK KKK / 


Pee eAU PEOPPY WRETURNS AN ERPROR CODE WHICH WILL x / 
feast RETURNED TO M71S 70) BE DISPLAYFD ON THF zy, 
PAS TERMINAL STATUS LINE. x / 


LKR KERR KKK IR RK RE KK KK KI RK KKH RAK KKK IAAKKAKKK AKER AK 
mrs foltDisoel rr tioG, “MISe€(READSFLOFPPY,0)); 


Pee UNEREMENT SECTOR NR AND READ AGAIN x / 


Meee iotCoETESECTOR, 23)> 
Poe tot ( DIOP lagrMSGpeMi Se CREANSFLOPPY,0)); 


END USER; 


EOF 





Sie Limitations on User Proarams 


MTS was designed to provide each user with his own 


virtual 8080 TiGwoproces SOF .« Unfortunately, the 
architecture of the ROBO CP! 1S not amenable to selfe- 
Virtualization. As a conseauence several limitations must 


be imoosed on user proarams runnina in the MTS environment. 
These limitations are: 

(1) The user's memory soace extends from address 4000H to 
FEFF, a total of 48,896 bvtes. All user code, data, 
and buffers must be contained within this area. of 
MEeMOrY. 

(2) All user-definea stacks must be four bytes longer than 
the maximum size reauired by the user. The four extra 
bytes are needec if an interrupt occurs while the 
user's Sites Se oul: lc Failure to orovide this 
additional space may result 1m random execution errors 
which are not reproducible and extremely difficult to 
diagnose. 

mo User programs should not read or write directly to [1/0 
ports while running under MIS. Terminal and floppy 
Gisk access 1S Provided by MTS service calls. 
Attempts to interface directly with the Sycor 440 
peripherals or auxiliary storage devices may interfere 


with the operation of MTS and damage other users. 


fay 
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MTS PROGRAM LISTINGS 


A RRR RR RR RR RRR RAB OK AB SK AB OK I A HET OK AS OS RG AEE OK RAEN RK COR SO OK OS OR OK OR KR KZ 


A GLOBAL IDENTIFIERS */ 
AR ROR KR KR RR OK OK RR OK KR RK OK OR RK ORK RK ER AS OE SE GOS OR IE OK OE OK OK ORK OK OK KK Z/ 
oR 7 
/* THE FOLLOWING DECLARATIONS DEFINE SYSTEM IDENTI- */ 
/* FIERS WHOSE SCOPE IS GLOBAL THROUGHOUT MTS. THESE */ 
/* IDENTIFIERS MAY BE DIVIDED INTO THREE DISTINCT 7 
/* GROUPS. THE FIRST GROUP INCLUDES ANY IDENTIFIER x7 
/* CONSIDERED CLOBAL BECAUSE IT IS REFERENCED IN TWO x*/ 
/* OR MORE MODULES OF THE MTS ML89 SOURCE PROGRAM. BY *Z 
7* INCLUDING THE DECLARATIONS FOR ALL SUCH IDENTIFIERS*7 
7* IN A SINGLE MODULE, INTERMODULE LINKAGE IS GREATLY */ 
/* SIMPLIFIED, AND THE SOURCE PROGRANS‘S READABILITY x*/ 
7* AND CLARITY ARE IMPROVED. K/ 
7% */ 
/* THE SECOND GROUP OF IDENTIFIERS INCLUDES THOSE */ 
7* VARIABLES WoICH, TAKEN TOGETHER, DEFINE THE STATE x7 
7* OF THE SYSTEM, I.E. THE SYSTEM STATE BLOCK. THE */ 
/* CONCEPT OF SYSTEM STATE IS IMPORTANT IN MTS BECAUSEX/ 
/* THE SYCOR 440 HARDWARE ARCHITECTURE PROVIDES NO */ 
7* PROTECTION AGAINST INADVERTENT OR MALICIOUS TAMP- */ 
/* ERING WITH SYSTEM CODE BY USER PROGRAMS. TO MINI-~ «7 
7* MIZE THE EFFECTS OF SYSTEM CRASHES CAUSED BY SUCH x7 
7* TAMPERING MTS PROVIDES A LIMITED RECOVERY CAPABIL— */7 
/* ITY. AFTER A TASK’S TIMESLICE EXPIRES, AND JUST 7 
/*® PRIOR TO INITIATING A NEW TASK, THE MTS NONITOR */ 
/* COPIES THE CONTENTS OF THE SYSTEM STATE BLOCK TO A x*/ 
/* FILE NAMED .MTSRCVR. IF A CRASH CCCURS WHILE THE */ 
/* NEW TASK IS EXECUTING, RECOVERY MAY BE ACCOMPLISHED*X/7 
/* BY REBOOTING NTS AND READING THE CONTENTS OF */ 
7* .MTSRCVYR BACK INTO THE SYSTEM STATE BLOCK. THE eg 
/* TASK WHICH CAUSED THE CRASH IS THEN DELETED AND */ 
/* NORMAL OPERATION CONTINUES. *K/ 
7 7 
/* THE THIRD AND FINAL GROUP OF IDENTIFIERS INCLUDES *x*/ 
7* SYSTEM DATA ASSCCIATED WITH A PARTICULAR USER TASK. */7 
7* SINCE THIS PATA IS ONLY USED WHEN ITS ASSOCIATED */ 
7* TASK IS ACTIVE, THE SPACE REQUIRED FORMS A SYSTEMN *7 
7/* AREA IN THE TASK’S SWAP IMAGE. THIS DATA IS SWAPPED*/ 
7* IN AND OUT ALONG WITH THE USER AREA OF THE SWAP */ 
/* IMAGE. */ 
7 */ 
/* THE THREE PRIMARY IDENTIFIER GROUPS DESCRIBED KS 
7* ABOVE MAY ALSO BE SUBDIVIDED BASED ON USAGE AND */ 
/* STORAGE ALLOCATION REQUIREMENTS. THE GROUP AND */ 
/* SUBGROUP HEADINGS FOR DECLARATIONS IN THIS MODULE x*/Z 
/* ARE AS FOLLOWS: *K/ 
A% */ 
7% ae GENERAL SYSTEM DECLARATIONS */ 
7% B. SYSTEM STATE BLOCK DECLARATIONS */ 
a 1. SYSTEM CONTROL */ 
# ee TASK CONTROL TABLE */S 
7% 3. DISK MAP TABLE “/ 
Va C. SYSTEM SWAP AREA DECLARATIONS */ 
Vix Ls VIRTUAL DISK CONTROL BLOCK > 
7% PR SWAP STACK */ 
SR i 
/* THE ORDER OF ALL DECLARATIONS IN THIS MODULE MUST x*-7 

* BE MAINTAINED TO PRODUCE A PROPERLY FORMATTED 7 
/* OBJECT MODULE. IN THIS REGARD SPECIFICATION OF THE *7 
/* INITIAL ATTRIBUTE IN A DECLARATION MUST BE CONSID- x*/7 

* ERED CAREFULLY SINCE THE ML&S&O® COMPILER ALLOCATES w/ 
/* DIFFERENT AREAS OF MENORY FOR INITIALIZED AND 7 
7* UNINITIALIZED VARIABLES. SPECIAL PRECAUTIONS ARE 1 / 
/* ALSO NECESSARY FOR LOCAL VARIABLES USED ONLY IN */ 
7* SINGLE MODULES. THE ML80 LINK EDITOR IS FORCED TO x/Z 





/* ALLOCATE SPACE FOR SUCH VARIABLES WITHIN THE */ 
7* MODULE’S CODE AREA BY DECLARING EACH SUCH VARIABLE */ 
7# WITH TYPE DATA. THIS TECHNIQUES IMPOSES A PENALTY */ 


“/* OF THREE BYTES PER DECLARATION FOR UNNECESSARY */ 
/* JUMP INSTRUCTIONS, BUT THE SIMPLIFICATION OF */ 
/*x INTERMODULE LINKAGES MAKES TEE TRADEOrF WORTHWHILE. */ 
7% */ 


A RRR RRR ER RR OR RS GR AE NE KR RS EO OK RR SKK OR IETS TK OK OBE OK EKO OK KOK KE KKK / 
A RERRHK RK RK BK KR RK ER RR RK RA RR IK OK OK OK SR EK KOK OK EK OKT ROR RZ 


HER Nee FG ee Hoe ole Pe OR OK SHC Re Te HIE NC He IE OR SC SH Be EE SEK HEME OEE Oc a KI IE CESK 
PRRKRREKEKERE GENERAL SYSTEM DECLARATIONS *®®KKKERKKRKEK/ 
SP RRRERER RBH EK RK RRR KEE RK RK KR KKK ERK KKK KERR EK RAKE RK / 


DECLARE PARI 2) BYTE INITIAL (0,9) ; 
DECLARE DISK BYTE INITIAL (0); 
DECLARE DRIVE BYTE INITIAL (0); 
DECLARE ERROR BYTE INITIAL (0); 
DECLARE LOCK BYTE INITIAL (1); 


/* SYSTEM LOCK - 7 
Va BIT 0: SWAP LOCK - NYS CODE EXECUTING */ 
as BIT i: SPOOL LOCK - SPCOLING UNDER iy 
7% INTERRUPT CONTROL 7 
7 * Bits 2-7: (NOT USED) aie 


DECLARE TASKSTIMeER BYTE INITIAL COrFED ; 
/* COUNTER RECORDING HOW MANY TIMER INCREMENTS K/ 
“* (3SO0MS) RENAIN IN TIMESLICE KS 
DECLARE SVCSSTACK( 20) BYTE INITIAL (9); 
7% SERVICE MODULE STACK *:/ 
DECLARE SYSSSTACK(29) BYTE INITIAL (6); 
4*% MONITOR MODULE STACK */ 
DECLARE MBBUFCS12) BYTE INITIAL (6); 
/* MINI-DISK BUFFER —- CONTAINS ONE SECTOR */ 
DECLARE MDSAD{2) BYTE INITIAL (6,96); 
7% SECTOR NUMBER OF DATA CONTAINED IN MDBUTF x*/ 


SL REKK RRR REIKI KR KR TE KR RIK KK ESE OK IEE SE KKK EE / 
SRKRKRKKERK SYSTEM STATE BLOCK DECLARATIONS **X**XXKRERKR/ 
SRK RK IK RK RR RRR ORR CK MOK SES SE OK ISK NOOK NEE MOK / 


SRRRKKRR ARK RRR KEKKEK SYSTEM CONTROL KR RRR KR KK KK /Z 


DECLARE TASK BYTE INITIAL (6); 

4* TERMINAL NR OF TASK CURRENTLY ALLOCATED */ 

7* THE CPU - RANGE 6-3 */ 
DECLARE RECSFILE(2) BYTE INITIAL (0,9); 

7*& MINI-DISK SECTCQR NUMSER OF .MTSRCVR */ 
DECLARE CNFGSFILEC2) BYTE INITIAL (0,9); 

/* MINI-DISK SECTOR NUMBER OF .MTSCNFG 7 


SP RERKRERKERKKREKKEKK TASK CONTROL TABLE **X%4KKKKKRKRAKKK/Z 
7* THE TCT CONTAINS INFORMATION ON THE STATE OF EACH x*/ 
/* TASK AND DATA REQUIRED TO SUPPORT SWAPPING. EACH */ 
/* VARIABLE CONTAINS FOUR ENTRIES - ONE FOR EACH OF */ 
“* THE FOUR TERMINAL TASKS. 7 
Peek shee focle ck fe deh tee feck obs ake eats tac ae he ae ake oR ah a ie cle hee eo oh ah ok hen ee ae eee ke REZ 


DECLARE TCTSSTATUS(4) BYTE INITIAL (0,0,0,90); 
A BIT @: SIMULATE BOOTSTRAP DURING NEXT */ 


7% TIMESLICE “x7 
ake BIT 1: CALL MCP DURING NERT TIMESLICE 7 
A Bir 2: (RESERVED FOR CASSETTE) */ 
ax BIT 3: (RESERVED FOR ASYNC) Sh 
7% BIT 4: BLOCKED FOR PRINTER I/O oe 
“x BIT 5: BLOCKED FOR TERMINAL I[/0 ed 
* BIT 6: CURRENT SWAP IMAGE RESIDES ON KS 
1% MINI-DISK Pd 
we BIT 7: CURRENT SWAP IMAGE IN MEMORY */ 


154 





DECLARE TCTSDM(32) BYTE INITIAL (90C0H,0,9,0,0,0,9,9, 
60COH,96,9,9,9,9,0,9,0C0H,0,9,0,9,9,90,9, 
0COH,9,9,9,0,9,9,9); 

/* DRIVE MAP - POINTERS TO VIRTUAL DISK ASSOC- */ 
/* TATED WITH EACH VIRTUAL DRIVE. BYTES 0-7 */ 
/7* CORRESPOND RESPECTIVELY TO DRIVES A-H FOR */ 


/7* EACH 8 BYTE ENTRY. */ 
A BITS 0-4: DISK NR - RANGE 9-31 */ 
7% BIT 5: (NOT USED) KS 
1% BIT 6: READ ONLY FLAG */ 
A BIT 7: IN USE FLAG */ 


DECLARE TCTSSIZE(4) BYTE INITIAL (32,32,32,32) ; 

7* SIZE OF SWAP IMAGE EXPRESSED IN NUMBER */ 

7* OF 312 BYTE MINI-DISK SECTORS */ 
DECLARE TCTSBOE(8) BYTE INITIAL (0,9,9,0,0,9,6,0); 
DECLARE TCTSEOE(8) BYTE INITIAL (80,0,0,6,9,0,0,90); 

7* MINI-DISK SECTOR NUMBER FOR EACH SWAP FILE X/ 

7% - INITIALIZED WHEN MTS LOADED */ 


SRRREKKRKKKRARLEKEKKK DISK MAP TABLE 4X XXX RKKRKKK/ 
/* THE DMT CONTAINS INFORMATION ON THE STATUS, PRO- *K/ 
/* TECTION, AND LOCATION ON THE MINI-DISK OF ALL VIR- ¥/7 


/* TUAL FLOPPY DISKS. EACH VARIABLE CONTAINS 32 KS 
/7* ENTRIES - ONE FOR EACH POTENTIAL DISK NR. THE */ 
7k ENTIRE TABLE IS LOADED AND VERIFIED DURING MTS */ 
“7* INITIALIZATION. KZ 


A HRB BBE KE RK AEE GR EO OK RE KR TE OK SK OK SRR AS OK OR SR OK OK RK OR ASS KOK ROK EK EK Z 


DECLARE DMTSFLAG(32) BYTE INITIAL (6,0,0,9,9,0,0,0,0,6, 
0,0,9,09,9,9,9,0,90,9,9,9,9,9,6,90,0,9,9,9,0,0); 


7% BIT 6: DISK EXISTS 7 

rae BIT 1: IN USE */ 

7% BIT 2: PROTECTED - KEY REQUIRED */ 

Vk BIT 3: RESTRICTED TO READ ONLY W/O KEY */Z 

A BITS 4-7: (NOT USED) *7 
DECLARE DMTSBOE(64) BYTE INITIAL (0,9,90,0,0,9,0,0,9, 

0,9,9,9,9,9,9,9,90,9,9,9,9,9,9,9,9,9,0,9,9,9,9,90, 

0,90,90,9,9,9,9,9,9,9,9,9.9,90,9,9,9,9,90,0.8,90,0,9, 

0,8®,0,0,9,90,0); 

/* MINI-DISK SECTOR NUMBER FOR BEGINNING */7 

/k* OF EXTENT a8 / 
DECLARE DMYTSEOE( 64) BYTE INITIAL (0,0,9,9,0,9,0,90,9, 

0,90,9,9,9,9,90,8,9,9,9,9,9,9,90,9,0,9.9,90,9,0,0,90, 

6,9,9,9,9,9,9,9,0,9,9,9,9,9,9,9,9,9,0,9,9,9,9,90, 

0,9,9,9,9,9,90); 

7% MINI-DISK SECTOR NUMBER FOR END ¥*/7 

/* OF EXTENT HO 


DECLARE DMTSKEY( 128) BYTE INITIAL (208) ; 
7* ONE TO FOUR ASCII CHAR PROTECTION KEY x*/ 


A RRR RRR RK EKER ORK OR HOR EER KEK OK KE BOR SEK RIK OK EEK / 
SP RREKKRKKEEEK SYSTEM SWAP AREA DECLARATIONS *%*#*X*XKKXRKKX/ 
ee eee eh ee ek he eo ke RRR RK EH OR REE EREEES 


JOR EREEREEKEK VIRTUAL DISK CONTROL BLOCK X*#**XXXKRRRKRK/Z 
/* EACH USER TASK HAS AVAILABLE 8 VIRTUAL DRIVES WHICH*/ 
/* MAY BE SELECTED TO ACCESS THE ATTACHED VIRTUAL 7, 
/* DISK. FOR EACH USER IT IS NECESSARY TO RECORD */ 
/* WHICH DRIVE IS CURRENTLY ACTIVE, AND ADDITIONAL */S 
/* DATA NEEDED TO MAP A VIRTUAL DISK ACCESS INTO A KS 
/% PHYSICAL MINI-DISK ACCESS. ALL THIS INFORMATION IS x*/ 
7* MAINTAINED IN THE VDC BLOCK. THE VDC BLOCK ASSOC- */ 
/* TATED WITH EACH TASK IS CONTAINED IN THAT TASKS */ 
/* SWAP FILE IN A SPECIAL AREA RESERVED FOR MTS SYS- = */ 
/* TEM USE. THIS MEANS THAT ONLY ONE OF THE FOUR VDC */ 
7* BLOCKS MAINTAINED BY THE SYSTEM IS EVER RESIDENT */ 
/%* IN MEMORY AT ANY ONE TIME. */ 
Ao eR ole feo he eK eA ee ROR RK RE EEK BE ACE EK KI Z 


DECLARE VDCSDRIVE BYTE; 





/% BITS 09-2: DRIVE NR FOR DRIVE CURRENTLY 
1% SELECTED 

7% BITS 3-3: (NOT USED) 

7 BIT 6: READ ONLY FLAG 

1% BIT @: MODIFICATION FLAG - SET WHEN CON- 
A TENTS OF BUFFER MODIFIED 


DECLARE VDCSBOE(2) BYTE; 


7* MINI-DISK SECTOR NUMBER FOR BOER OF VIRTUAL 
7* DISK CURRENTLY ATTACHED TO SELECTED DRIVE 


DECLARE VDCSEOE(2) BYTE; 


7* MINI-DISK SECTOR NUMBER FOR EOE OF VIRTUAL 
7# DISK CURRENTLY ATTACHED TO SELECTED DRIVE 


DECLARE VDCSSECTOR BYTE; 


/* VIRTUAL DISK SECTOR NR FOR SUBSEQUENT */ 
7% ACCESSES - RANGE 1-26 *K/ 


DECLARE VDCSTRACK BYTE; 


“7* VIRTUAL DISK TRACK NR FOR SUBSEQUENT */ 
/%* ACCESSES ~- RANGE 0-76 k / 


DECLARE VDCSDMA(2) BYTE; 


7k MEMORY ADDRESS OF 128 BYTE DMA BUFFER x*/ 
/* FOR SUBSEQUENT VIRTUAL DISK ACCESSES ¥#*/ 


*/ 
5 
*/ 


*/ 
7 


7 
%*/ 


*/ 
*/ 


J RRR ARE KR RRR RRA EG WAP STACK RRR ROR KR KR ERR KKK / 
EACH Tilf® A TASK IS SWAPPED OUT THE CURRENT GPER- 


fx 
fx 
7 
7k 
7% 
as 
7x 


ATING ENVIRONMENT, I.E. PSW, BC, DE, HL, AND SP, 
MUST BE SAVED IN A KNOWN AREA SO THAT IT CAN BE 


QUICKLY RESTORED WHEN THE TASK IS SWAPPED BACK IN. 


MTS USES A STACK IN THE SYSTEM AREA OF THE SWAP 
IMAGE TO HOLD THE ENVIRGNIZENT WHEN A TASK IS 
INACTIVE. 


SRA RR EERE RA RRR RR RK RN SRR OK RR IER ORK 


DECLARE SWAPSSTACK( 10) BYTE; 


7* AREA IN WHICH USER ENVIRONMENT IS :*7 
7* SAVED WHEN TASK IS SWAPPED OUT *K/ 


7 
*K/ 
a 
%/ 
*n7 
eS 
h/ 
KZ 





ARR RR RK RK RRR RR RK ER KR RR OK RR AER OR RRO OR ORR OR AR OR EOE OK RK OR KOK ROK OB RRR OK / 


Pfr 3 INTERRUPT MODULE */ 
A RRRERKLRERK RRR RHR KBE ERIK IR RK RE ACE OR KK OK ROKK RAK KEE EE EK EK OK / 
V Ae *K/ 
L# eS 
/* ALL HARDWARE INTERRUPTS ON THE SYCOR 440 SYSTEM */ 
/* CAUSE THE EXECUTION OF A RST 1 INSTRUCTION. THIS */ 
/* INSTRUCTION BEHAVES LIKE A CALL TO LOCATION OG@O8H, */ 
/* I.E. THE PC VALUE IS STACKED, AND CONTROL TRANS- 7 
7* FERRED TO LOCATION 0@08H. DUE TO THIS HARDWARE KF 
7* CHARACTERISTIC, THE USER MUST ENSURE THAT ANY USER X*/ 
7* DEFINED STACKS ARE AT LEAST FOUR BYTES LARGER THAN *- 
/* THE MAXIMUM SIZE REQUIRED BY THE USER’S OWN CODE. */ 
7* SINCE ALL PERIPHERAL DEVICES CAUSE EXECUTION OF 7 
/* THE SAME INTERRUPT INSTRUCTION, SOME MEANS WMUST BE x*/ 
/* AVAILABLE TO DISTINQUISH BETWEEN DEVICES WHENEVER x/ 
7* AN INTERRUPT OCCURS. THE SYCOR 440 SOLVES THIS *K/ 
7* PROBLEM BY DEFINING AN INTERRUPT LEVEL FOR EACH */ 
/* DIFFERENT DEVICE. THERE AR® 17 INTERRUPT LEVELS eH 
7* WITH VALUES RANGING FROM O TO 16. A HIGHER NUMERIC xv 
/* VALUE ALSO IMPLIES A HIGHER PRIORITY FOR THE */ 
/* ASSOCIATED DEVICE. WHEN AN INTERRUPT OCCURS THE *K/ 
/* LEVEL IS AVAILABLE ON INPUT LATCH 0. SIMULTANEGCUS */7 
7* INTERRUPTS WILL BE INPUT SiQUENTIALLY IN PRIORITY, x*/ 
7x 1.E. DESCENDING, SEQUENCE BY LEVEL NUMBER. WHEN 7 
/* THE LEVEL READS ZERO ALL PENDING INTERRUPTS HAVE */ 
/* BEEN PROCESSED. THE INTERRUPT LEVEL ASSIGNMENTS */ 
/%* WHICH APPLY TO THE CURRENT NPS SYCOR 440 TIARDWARE x7 
7* CONFIGURATION ARE AS FOLLOWS: hey 
S* */ 
7x LEVEL DEVICE 7 
CO me a ae ae ae a oe */ 
7% 16 DEBUGGER */ 
vee 15 POWER FAIL */ 
7 14 PARITY CONTROL 7 
Tk it ASYNC COMM */ 
7% 10 TERMINAL GROUP 0 */ 
1% a) TIMER */ 
Tae 6 PRINTER 0 "7 
7 2 FLOPPY DISK 7 
7 1 CASSETTE x7 
7% x7 
/* THIS MODULE CONTAINS THE CODE USED BY MTS TO PRO- x/ 
7* CESS INTERRUPTS. THIS CODE CONSISTS OF AN INTER- 7 
/* RUPT CONTROLLER PLUS A SET OF INTERRUPT HANDLER */ 
7* ROUTINES - ONE ROUTINE FOR EACH DEVICE. THE INTER- x*/ 
/* RUPT CONTROLLER SAVES THE CURRENT ENVIRONMENT, 7 
/* IDENTIFIES THE INTERRUPT LEVEL, CALLS THE APPROP- */ 
7* RIATE HANDLER ROUTINE, AND THEN RESTORES THE 7 
/* ENVIRONMENT BEFORE RETURNING TO THE INTERRUPTED 7/7 
7* PROGRAM. THE HANDLER ROUTINES ARE TAILORED TO THE x/ 
fx SPECIFIC REQUIREMENTS OF DIFFERENT DEVICES. IN SSP 
7/* ORDER TO UTILIZE THE CODE CONTAINED IN THE INTER- x/Z 
/* RUPT MODULE IT IS NECESSARY FOR THE MTS INITIAL- */ 
7* YZATION ROUTINE TO LOAD A JUMP TO THE INTERRUPT Ke 
/* CONTROLLER IN MEMORY LOCATIONS @008-O@0AH. */ 
7% ye 

7 */ 


A RAR RRR RAR RAB AR ERR AEB AR OR AR OK OK OR OR SR HS OK OK ASK OR OK OR EK ROK OR OK RK OK SE RK KR RR KK ZF 
ARR RRR ER EK OR RR KAR ASR OR KO OK AK AE OK ES OK AS RO OK OR OK OK SISO OK KR EK iS OS OK OR OK CK oR EK 7 





SRAKRKEKKKKKKK INTERRUPT PROCESSING MACROS ****** eee KKK 


[MACRO LEVEL ’IN(@)’] 

[MACRO DEBUGSLATCH ’@FFH’ ] 

[MACRO CSSTSLATCH ’ 85h’ ] 

[MACRO PRINTERSLATCH °8AH’ ] 

[MACRO TIMERSLATCH °’O2H’ J 

[MACRO TERMINALSLATCH ’3EH’ ] 

[MACRO MATRIXSLATCH °SFH’] 

[MACRO INTSPENDING °C A=[TLEVELIJA) !ZERQ’ J 

[MACRO DEBUGSINTSPENDING °C A=[ LEVEL]; A::16) ZERO’ ] 


SRERRKRK KEKE KKK MODULE DECLARATIONS KKK KKRKKRKKKRRKKS 


CINT TOP BLINK EP] [BLINK:=4] (TOP:=30] [EP:=TOP-190] 

DECLARE INTSSTACK DATA (0,90,9,0,0,9,0,9,90,9,6,0,9, 
6.9,9,9,9,0,9,0,9,0,0,90,0.0,0,0,9) ; 

DECLARE BLINKSTIMER DATA (1); 

DECLARE SAVHL DATA (0,8) ; 


SP RRRRRRKKRKEKKRKKKKKKKKK PROCEDURES KeoRK KKK KKK KKK KKK, 


DUMMYSHDLR: PROCEDURE; 

A RRR RRA RK BK RE KR HK RR AS RK ER SOK OK A EE ROR OK TEN RK ROK IZ 
/* THIS PROCEDURE PROVIDES A COMMON EMPTY INTERRUPT x/ 
7* HANDLER FOR THOSE INTERRUPT LEVELS WHICH SHOULD */ 
7* NEVER OCCUR WITH THE CURRENT NPS SYCOR 440 HARD- */ 
7* WARE CONFIGURATION. ITS ONLY ACTION IS AN IMMEDI- x*/ 


/* ATE RETURN. 7 

7* CALLED BY: INTERRUPTSCONTROLLER / 

SP RARER REAL RE RR EE RR TR ER RR ER SIR ROR RRR ORR OR / 
RETURN ; 


END DUIfTyYSHLDR; 


DEBUGSHDLR: PROCEDURE; 

7 RR RB AK RR KK RS OR OR OR TS OR ISK BK OK OK ARK OK OK OK OK OK OK SO EE TS OE OK OR OK ORK OK OK AS OE NS OR OK OK OK ROKK 
/* THIS HANDLER IS INCLUDED TO ALLOW USAGE OF THE %/ 
7% SYCOR 340B DEBUGGER IN THE SOFT DEBUG MODE WHEN 7 
7% RUNNING UNDER MTS. IT WAS DISCOVERED DURING DEVEL- x*/ 
7% OPMENT AND TESTING THAT THE DEBUGGER IS LARGELY */ 
/* UNRELIABLE IN THE SOFT MODE. THIS IS APPARENTLY / 


7* DUE TO HARDWARE CHANGES IN THE 440 SYSTEM MADE */ 
7* AFTER THE DEBUGGER WAS DESIGNED. */ 
7* CALLED BY: INTERRUPTSCONTRCLLER */ 


A RK RE RK AR RK ORE OK OK IR KK OK IS OK SK oS OK OK 2 KR OR OR OR OK OE OK 2K OK OR KK KK KR EK KK KK 
“7* DISPLAY ENVIRONMENT ON DEBUGGER */7 
HL=2+SP; 

M(6H)=(A=L); NC ?VH) =CA=H) ; 
/* ACKNOWLEDGE DEBUG INTERRUPT */ 
OUT( [ DEBUGSLATCH] )=( A=1); 
/* CPU IDLES WHILE WAITING FOR DEBUGGER TO x*/ 
/*& INITIATE RESUMPTION OF EXECUTION 7 
DO WHILE [DEBUGSINTSPENDING]; 
END; 
END DEBUGSHDLR; 


CASSETTESHDLR: PROCEDURE; 
OUT([ CSSTSLATCH] ) =( A=10FD ; 
END CASSETTESHDLR; 


PRINTERSHDLR: PROCEDURE; 
A= INCCPRINTERSLATCH]) ; 
END PRINTERSHDLR; 


TIMERSHDLR: PROCEDURE; 

ARR KBR EK KKK RR ERK HK EE OR EK OK RRR NEE OK OK KK EEK OK / 
/* THE TIMER INTERRUPT HANDLER MANAGES THE TWO FUNC- */ 
/* TIONS OF MTS WHICH OCCUR AT PERIODIC INTERVALS: */ 
/* BLINKING THE TERMINAL CURSORS AND RETURNING CONTROLX/ 
/* TO THE SYSTEM WHEN A TASK’S TIMESLICE EXPIRES. IN */ 
/* ORDER TO KEEP TRACK OF THE TWO INTERVALS INVOLVED, */ 
/* THE PROCEDURE MAINTAINS TWO COUNTERS. THESE COUN- x/ 





TERS ARE EACH SET TO AN INITIAL VALUE AND THEN x7 
DECREMENTED EACH TIME A TIMER INTERRUPT OCCURS. */ 
THE ACTUAL VALUE CONTAINED IN EITHER COUNTER AT ANYx/ 
INSTANT REPRESENTS THE TIME REMAINING IN THE INTER-*/ 
VAL IN MULTIPLES Or SOMS SINCE THIS IS THE FIXED */ 
INTERVAL BETWEEN TIMER INTERRUPTS. WHEN THE TASKS = x/ 
TIMER COUNTER HAS BEEN DECREMENTED TO ZERO, CONTROL*/ 


IS TRANSFERRED TO THE MONITCR WHERE THE CURRENT */ 
TASK IS SWAPPED OUT AND A NEW TASK SWAPPED IN. */ 
WHEN THE BLINKSTIMER COUNTER REACHES ZERO THE */ 
BLINKSCURSOR PROCEDURE IS CALLED. IN EITHER CASE */ 


THE TIMER HANDLER RESETS THE COUNTER TO ITS INIT- x*/ 
IAL VALUE AND CONTINUES. */ 
CALLED BY: INTERRUPTSCONTROLLER */ 


A RRR RK RR EK KR KR ORK ORK OR OK OK OK RB OK 6 OR OB OR IS OK OK COR FB OR OR iS OR OR RR KK OK OR ERE KKK / 


TASKSTIMER=( A= TASKSTIMER-1); 
BLINKST IMER= (A=BLINKSTIMER- 1) ; 
IF (A::0) ZERO THEN /7x* BLINK INTERVAL EXPIRED x 
BO; 
CALL {[ BLINKSCURSOR] ; 
BLINKSTIMER=C A=( BLINK)) ; 
END; 
OUTCL TIMERSLATCH] )=(A=6); =/* RESET TIMER */7 
IF (A=TASKSTIMER; A::8) ZERO THEN 
DO; 7% TIMESLICE EXPIRED x7 
IF CA=>LOCK) [CY THEN 
DO; /%* SWAPPING UNLOCKED x7 
BC=10; DE=.INTSSTACK(LEP]); 
HL=.SWAPSSTACK; 
CALL { MOVBUF] ; 
ENABLE; 
GOTO [MONITOR] ; 
END 
ELSE TASKSTIMER=( A= 1); 


END; 
END TIMERSHDLR; 


TERMINALSHDLR: PROCEDURE; 
A PRR ER AE RK RK OE RK RK RE RS OB OE OK ES EER SR OR OK OK OK OR RK ER OK OK OR AE RK RK OK KZ 


THIS PROCEDURE PROCESSES THE INTERRUPT GENERATED 7 
FROM ANY KEY DEPRESSION AT ANY OF THE TERMINALS. */ 


IT GETS THE TERMINAL IDENTITY AND TRE KEYBOARD KZ 
MATRIX CODE AND THEN CALLS TERMINALSINPUTSCONTROL xv 
TO PROCESS THE KEY. */ 
OUTPUT: €C - MATRIX CODE 7, 

E - TERMINAL NUMBER A 
CALLED BY: INTERRUPTSCONTROLLER A 


A RR BRK RK RRR EK KKK BRB SOK RR TE ORR BR ER OR RR BE KR RK OR BK KR KKK KZ 


/*% READ TERMINAL IDENTITY */7 
E=(A=INCCTERMINALSLATCH)) 63) ; 

7* WRITE TERMINAL NUMBER BACK OUT TO CAUSE */ 
/* THE APPROPRIATE KEYBOARD DATA REGISTER */ 
/* TO BE SELECTED FOR READING. k/ 
OUTCE TERNINALSLATCH] ) =A; 

7* READ THE KEYBOARD MATRIX CODE x*/ 

C=(A= INCL MATRIXSLATCH]) ) ; 

7% PROCESS KEY x*/ 

CALL [ TERMS INPUTSCTRL1] ; 

END TERMINALSHDLR; 


INTERRUPTSCONTROLLER: /* MAIN ENTRY INTO INTMOD */ 


7k SAVE CURRENT VALUE OF STACK POINTER AND +7 
7* ALL REGISTERS IN INTSSTACK */ 
SAVHL=HL; STACK=PSW; 

HLZ2+SP; PSW=STACK; 

SP=.INTSSTACK([ TOP]) ; 

STACK=HL; 7% PUSH CURRENT STACK PTR x*/ 
HL=SAVHL; 

STACK=HL; /* PUSH ORIGINAL CONTENTS OF HL *%/ 
STACK=DE; STACK=EBC; STACK=PSW; 

DO WHILE C INTSPENDING] ; 
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EOF 


H=(A=6); L=(A=£LEVEL])) ; 
DO CASE HL; 


7% @ */7 CALL DUMMYSHDLR; 

Y*& 1 */7 CALL CASSETTESHDLR; 
4& 2 */ CALL DUMMYSHDLR; 

/* 3 */ CALL DUMMYSHDLR; 

S% & &®7 CALL DUMMYSHDLR; 

/% § *®/7 CALL DUMMYSHDLR; 

f% 6 */ CALL PRINTERSHDLR; 

4% @ */ CALL DUMMYSHDLR; 

7*& 8 */ CALL TIMERSHDLR; 

/* 9 */ CALL DUMMYSHDLR; 

/* 10 */ CALL TERMINALSHDLR; 
Y* 11 */ CALL DUMMYSHDLR; 


7* 12 */ CALL DUMMYSHDLR; 


f* 13 *%/ CALL DUMMYSHDLR; 
f% 14 */ CALL DUNMYSHDLR; 
7% 1S */ CALL DUMIHYSHDLR; 


/* 16 */ CALL DEBUGSHDLRA; 

END; 7% CASE x7 
END; /7* WHILE x7 
/* RESTORE ORIGINAL VALUE OF STACK POINTER AND x7 
/* ALL REGISTERS FROM INTSSTACK */ 
PSW=STACK; BC=STACK; DE=STACK; HL=STACK; 
SAVHL=UL; HL=STACK; 
SP=HL; HL=SAVHL; 
ENABLE; 
RETURN ; 
/* END INTERRUPTSCONTROLLER */ 


160 





A RERKKKAKRRAKRAKKKKKRKAKRAKARAKRKAKKKKKAKRKREKKRKKKKKKKRKKRRKKZ 


7% MONITOR MODULE */ 
A RRR RKE RRR IR RRR RRR RRR BRE RRR KK KK OK ER KK RK ROKK RKO KK KK / 
Vee */ 
7* THE MONITOR MODULE CONTAINS THOSE FUNCTIONS OF MTS x7 
7/* WHICH DEAL WITH PROCESSOR MANAGEMENT. SUCH FUNC- */ 
7* TIONS INCLUDE THE INITIAL PROGRAN LOAD, SYSTEM 7 
/* RECOVERY, SCHEDULING, CPU ALLOCATION, AND SWAPPING. x/ 
/* THE MODULE IS DIVIDED INTO THREE BASIC SUBMODULES. */ 
7% */ 
7* (1) UTILITY PROCEDURES *K/ 
7 THIS SUBMNODULE CONTAINS GENERAL PURPOSE */ 
7% UTILITY PROCEDURES WHICH PERFCRM OPERATIONS K/ 
Vans FREQUENTLY REQUIRED IN THE MONITOR, INTERRUPT xv 
1% AND SERVICE MODULES. *K/ 
7 * INDEX * PUT 7 
ae * INDEX2 * GET 7 
7# *& INDE * MOVBUr x 
7% * INDEXS * MINISDISK *K/ 
ak 7 
7k  €2) TASK MANAGEMENT *K/ 
7 THIS SUBNODULE CONTAINS THE SCHEDULING, CPU 7 
Vk ALLOCATION, AND SWAPPING PROCEDURES. IT ALSO x/7 
S% INCORPORATES THE MECHANISN FOR RECORDING THE xv 
aes SYSTEM STATE BLOCK WHEN THE SYSTEM STATE *7 
ik CHANGES, THUS MAKING RECOVERY POSSIBLE. */ 
7% CONTROL PASSES TO THE TASK MANAGEMENT */ 
7 SUBNODULE AFTER MTS HAS BEEN INITIALIZED BY *K/ 
a THE JPL SUBMODULE. */ 
7% * MONITOR * SWAP 7/7 
7 * BUMPSTASK * WRITESREC a 
eS * BOOTSTRAP * RESUMESEXECUTION KZ 
7% 7 
7* (3) INITIAL PROGRAM LOAD *K/ 
7x THIS SUBMODULE CONTAINS ALL PROCEDURES WHICH x/ 
ras DEAL WITH THE LOADING PROCESS AFTER THE NTS */ 
7% OBJECT MODULE HAS BEEN LOADED INTO MEMORY BY x/ 
7 THE SYCOR SYSTEM LOADER. THE PRIMARY FUNCTION *7 
Var OF THE IPL SUBMODULE IS SYSTEM INITIALIZATION *7 
T* OR RECOVERY, AS REQUIRED. IN ORDER TO MINI- */ 
7% MIZE THE MEMORY REQUIREMENT OF THE RESIDENT */ 
AE MTS CODE, THIS SUBMODULE WAS WRITTEN AS A */ 
aes STANDALONE PROGRAM LOADED INTO THE USER SWAP x*/ 
mak AREA. ONCE IPL IS COMPLETE THE PROGRAM MAY */ 
7% BE OVERLAYED BY USER PROGRAMS. */7 
We3 * ABORTSIPL * READSD IRECTORY */ 
7% * SEARCHSDIRECTORY * RECOVER */ 
age * INITIALIZE * MTSS IPL x*/ 
7x */ 
7* THE MONITOR MODULE REQUIRES ACCESS TO SEVERAL */ 
7* FILES WHICH RESIDE ON THE MINI-DISK IN SYCOR 7 
/* FORMAT. THESE FILES AND THEIR FUNCTION ARE: */ 
ak */ 
7* (1) .MTSSWPO,.MNTSSWP1,.MTSSWP2,.MTSSWPS3 *K/ 
S% ASSOCIATED WITH EACH OF THE FOUR TERMINAL */ 
1% TASKS IS A FILE USED TO STORE A CORE IMAGE *K/ 
7% OF THE TASK WHEN IT IS INACTIVE OR BLOCKED. */ 
7 THIS SWAP IMAGE CONSISTS OF A SYSTEM AREA */ 
TR WHERE THE ENVIRONMENT AND VIRTUAL DEVICE */ 
1% CONTROL BLOCK IS STORED, AND A USER AREA *K/ 
7% CONTAINING THE USER PROGRAM’S MEMORY IMAGE. */ 
7% THE MAXIMUM SWAP IMAGE SIZE IS 48K BYTES. */ 
Lae THEREFORE, EACH SWAP FILE SHOULD NORMALLY BE x/ 
7% 96 MINI-DISK SECTORS LONG. IN THE EVENT THAT *x/7 
1 MINI~DISK SPACE IS LIMITED AND THE ENTIRE 48K x*/7 
-* IS NOT REQUIRED FOR USER PROGRAMS, MTS WILL 7 
7R AUTOMATICALLY ADJUST TO ANY FILE SIZE GREATER x*/ 
7 THAN t6K (382 SECTORS). THE FOLLOWING SYCOR */ 
S* COMMAND MAY BE USED TO CREATE A SWAP FILE: *K/ 
[7m CREATE <FILENAIM&> N=96 *K/ 
aes THE SYCOR SYSTEM DOES NOT ALLOW DYNAMIC 7 
vgn 3 CHANGES IN FILE SIZE OR ATTRIBUTES; THUS, IN ¥*/ 
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A ORDER TO CHANGE THE FILE SIZE, THE FILE MUST xv 


7% FIRST BE DELETED (DELETE <FILENAIT>) AND THEN x*/ 
es RECREATED WITH THe DESIRED SIZE. IF SWAP */ 
7% FILES SMALLER THAN 48K ARE DESIRED, THE VALUE x*/7 
# OF N IN THE CREATE COMMAND STRING SHOULD BE *7 
/* TWO TIMES THE REQUIRED PROGRAN SPACE IN KS 
eS KILOBYTES. */ 
S% THE FOUR SWAP FIL&S ARE ONLY REQUIRED WHEN *S 
7% NTS IS ACTUALLY RUNNING. OR BETWEEN RUNS IF *7 
7% RECOVERY WILL BE REQUESTED. KS 
rine KS 
7* C2) .MISCNFG *S 
yer. THE VIRTUAL FLOPPY DISK CONFIGURATION FILE */ 
7% PROVIDES THE MAPPING BETWEEN THE VIRTUAL DISK * 
ax NUMBER (0-31) AND THE NAME OF A SYCOR FILE KS 
ek WHICH CONTAINS A FLOPPY DISK IMAGE. THE CON- x*/7 
Ve 3 FIGURATIGN FILE ALSO CONTAINS THE PROTECTION x*/7 
7% ATTRIBUTES OF THE VIRTUAL DISKS. WHERE A KS 
#* PHYSICAL FLOPPY DISK HAS A FIAED CAPACITY OF */7 
7% 256K BYTES, AN MTS DISK IMAGE MAY HAVE ANY KS 
1% CONVENIENT SIZE. THE SYSTEM ASSUMES THAT THE *x/ 
S% DISK IMAGE IS STORED SEQUENTIALLY ON THE 7 
1% MINI-DISK STARTING WITH TRACK 0 SECTOR 1 AND x/ 
7% PROCEEDING THROUGH 26 SECTORS OF TRACK 9 TO 7 
a TRACK 1 SECTOR O, ETC. SPECIFYING A VIRTUAL 7 
/* DISK FILE SMALLER THAN 256K BYTES MEANS THAT */ 
ae FEWER THAN 77 TRACKS WILL BE ADDRESSABLE, KS 
A WHILE A SIZE GREATER THAN 256K BYTES WILL i / 
7 MAKE MORE THAN 77 TRACKS ADDRESSABLE, UP TO */ 
7% A MAXIMUM OF 256 TRACKS. IN EITHER CASE MTS */ 
7% AUTOMATICALLY ADJUSTS THE UPPER BOUND BASED / 
la ON THE FILE SPACE AVAILABLE. a 
7% THE CONF IGRATION FILE CONTAINS 32 THIRTEEN */ 
7 BYTE RECORDS IN THE FOLLOWING FORMAT: */ 
SR RR SS K/ 
ye | FILENAME ! KEY | P I cS, 
SR a a a a a ee a ae ae KS 
7% 0 *- 8 ti 12 *K/ 
SH WHERE ’FILENAME’ IS THE 0-8 BYTE NAME OF THE *-7 
Uae VIRTUAL DISK FILE AS IT APPEARS IN THE SYCOR *x*/ 
7X DIRECTORY; ’KEY’ IS A O-4 BYTE PROTECTION <7, 
/% KEY; AND ’P’ IS THE PROTECTION ATTRIBUTE OF *K/ 
7% THE DISK, I.E. ’°’P’ FOR READ/WRITE PROTECTION, */ 
7% "R’ FGR WRITE PROTECTION ONLY, AND BLANK FOR */ 
Sx NO PROTECTION. *7 
Vig THE CONFIGURATION FILE WILL BE UPDATED BY THE */ 
x MTS SYSTEM COMMANDS PROTECT, UNPROTECT, AND K/ 
Ties RESTRICT. ALTERNATIVELY, IT MAY BE MODIFIED *S 
7% USING SYCOR’S DATA ENTRY FREE FORM MODE. IN 77 
ak THE EVENT THAT .MITSCNFG IS ERRONEOUSLY */ 
7% DELETED, THE FILE MAY BE RECREATED BY USING */ 
Sf & THE SYCOR COMMAND */ 
7% RUN RESTORE 2=/CSST */ 
7% WITH THE CASSETTE LABELED ".MTSCNFG DUMP" */ 
Sk MOUNTED ON THE CASSETTE DRIVE. A 
A* */ 
7* (3) .MTSRCVR KS 
7% THE RECOVERY FILE CONTAINS A COPY OF THE */ 
7® SYSTEM STATE BLOCK AS OF THE LAST SWAP. THE 5/7 
* FILE IS ONLY REQUIRED WHEN MTS IS ACTUALLY *K/ 
7% RUNNING, OR BETWEEN RUNS IF RECOVERY WILL BE x/7 
7% REQUESTED. THE FOLLOWING SYCGR COMMAND IS EZ 
ae USED TO CREATE THE FILE: x/ 
7% CREATE .MTSRCVR N=1 K/ 
fk ad 


A RRA AB OR OR ER AE EE ME OR HE OK OK ORK RK AR OK ROR SE OE OK IG HE OK OR AE IEE OR AE OR RS ARR ER EK RK RK RR ACK HZ 
A RAR RA RK ORR RK RRR RK KR KR KR KK EK RK RK EE KK RK EK RK AE KOR AE EK Z/ 





AS RRRRR REE KER BKK ARE RK RE RE HEE RK EER EK OK ER KE ER RK IR EK / 
SP RRRRKRRRRERKKRKKKREK TASK MANAGEMENT R08 RK RE KR RRR RK EK Z 
SRK RR RRR AK RR EE RRB AK KOR OB AK EK IE OK OK OK KE OR IK OK ICR OK OK EK SC IK EK IK RK / 
SRERREKE EERE INTERMODULE LINKAGE MACROS #1 KR RK RZ 


CINT TB M2B) (TB:=1006H)] [ M2B:=0660H] 


[MACRO MCP ° 1A90H’ ] 

(MACRO NTS ° 1FOOH’ ] 

(MACRO INDEX °CHEX M2B + 3H)’ ] 

{MACRO INDEX2 ’°CHEX M2B + ODH)’] 

{MACRO INDEX8 °C HEX M2B + 24H]? ] 

(MACRO GET °C HEX M2B + 38H") 

[MACRO MINISDISK °C HEX M2B + 54H] °] 
(MACRO MTSSMSG °CHEX TB + 837H)]"] 

[MACRO READSTERMINAL °C HEX TB + &SDCHI]°3 
[MACRO GETSTERMNSSTATUS ’°CHEX TB + 2F9H)]’] 


SRRERBRERE REE EE GENERAL PURPOSE MACROS 8x2 kR RRR 
CINT MENSBASE TOP TIMESLICE] 


([MEMSBASE:=4000H] (CTIMESLICE:=4] (TOP: =290] 


{ MACRO 
{ MACRO 
{MACRO 
{MACRO 
C MACRO 
{ MACRO 
C MACRO 
C MACRO 


SSBSBASE ° TASK’ ] 
SWAPSBASE ’°’VDCSDRIVE’ J] 
READ °1°] 

WRITE °2’] 

BUMP *—2" 3 
DISKSERROR °C A: :9) 
HARDWARESERROR °S’ ] 
INPUTSWAITING ’OFFE” ] 


'ZERO’? J 


IN ’CREAD]*] 
OUT °C WRITE] *] 


{ MACRO 
[C MACRO 


SRRKRRKRKKKRKKKKKEK MODULE DECLARATIONS 26282828 2k KKK RAK KR KKK 


DECLARE (MONITOR, BOOTSTRAP, RESUMESEXECUTION) LABEL; 
DECLARE DIR DATA (98); 
DECLARE SAVEBL DATA (0,9); 
DECLARE I DATA (9); 
DECLARE TN DATA (@); 
J RRR ORK RRR ORK ER KEKE PROCEDURES RNR KKK RR KKK KR Z 
BUMPSTASK: PROCEDURE; 
AS RRA RRR KERR RRR KK ESE EE SE OK NE HE EE SEE NC IESE SK ESI NE SK ISK KEK / 
7* THIS PROCEDURE DELETES A TASK FROM THE SYSTEM WHEN x/ 
7* AN IRRECOVERABLE MINI-DISK ERROR GCCURS. ace 
7* CALLED BY: SWAP, BOOTSTRAP */ 
S REBAR KR RE RA RK RRR IE OR OR EAE I BK GR AR IE EK EOE BS RIE IR EK HEE SR ER ESE IK 
C=(BUMP); CALL (MTS]; 
E=[ HARDWARESERROR] ; CALL CHNISSMSG] ; 
END BUMPSTASK; 


SWAP: PROCEDURE; 
A RRR IRR RR RK RK RR OK RR OK SR OR RE RR RR RR KK RK CER EK / 


/* THIS PROCEDURE SWAPS A TERMINAL TASK BETWEEN MEMORY, 
7* AND THE APPROPRIATE MINI-DISK SWAP FILE. THE DIR- x7 
“7* ECTION OF THE SWAP, I1.E. IN QR OUT, IS DETERMINED *7 
“* BY THE VALUE OF THE VARIABLE DIR. THE */ 
7* PROCEDURE ALSO MODIFIES TCTSSTATUS TO REFLECT THE x/ 
7* CURRENT LOCATION OF THE SWAP IMAGE. */ 
7* INPUT: DIR - DIRECTION OF SWAP 7 
ae 1 = IN 7 
1% 2 = OUT */ 
7* CALLZD BY: MONITOR ae 


SRR AEE ERE TR RAE REE ER IK IE OK OR ROK OR OR OE OK OK OR SOK ER OR AR OR OK HE OK OK SOR EE KE OK / 
“*® SET I TO SWAP IMAGE SIZE */ 


DE=.TCTSSIZE; A=TASK; CALL [C INDEX] ; 
I=( A=MCHL)) ; 

7* MODIFY TCTSSTATUS :/ 

HL= . TOCTSSTATUS+BC; 
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MC HL) =( A=MCHL) NN OCOH) ; 
7* SET UP REGISTERS FOR DATA TRANSFER *7 
DE=.TCTSBOE; A=TASK; CALL CINDEX2];: CALL [GET]; 
DE=.{SWAPSBASE]; A=I; 
DO WHILE (A::@) !ZERO; 
L=(A=DIR); CALL €MINISDISK]; 
IF CDISKSERROR] THEN 
DO; /* BUMP TASK OFF SYSTEM *7 
CALL BUMPSTASK; 
IF CA=DIR; A::CINJ) ZERO GOTO MONITOR; 
RETURN: 
END; 
BC=BC+1; DE=( HL=200H+DE) ; 
I=€A=I-1); 
END; /“* WHILE */ 
END SWAP; 


WRITESREC: PROCEDURE; 
A RKBKR RK HAR BRK RK EK KR RK RK RR KKK ERE EK RK RE REE ERK 
/* THIS PROCEDURE COPIES THE CONTENTS OF THE SYSTEM x7 


/* STATE BLOCK TO THE RECOVERY FILE. THE VARIABLE */ 
7* RECSFILE MUST BE SET TO THE FILE’S SECTOR ADDRESS *-7 
/* BEFORE CALLING WRITESREC. */ 
7* CALLED BY: BOOTSTRAP, RESUMESEXECUTION */ 


A RRRK RR E RK  RR  R R R R OR R IR TI OR R ER R OK HR RR KR RRR KZ 
BC=(HL=RECSFILE); DE=.0SSBSBASE}] ; 
L=(€ WRITE]; CALL C€MINISDISK] ; 
IF C[DISKSERROR] THEN HALT; 
END WRITESREC; 


MONITOR: 
SRR TER RENE NCR ENS OR ENE ISK EK BS OK OR OR EIS TK NS OE ER CNS AR CK IE TR IC RE SOK OR RNS / 
7* THIS ROUTINE IS THE TASK MNANAGER OR SCHEDULER : 


/* WHICH CONTROLS THE ALLOCATION OF THE CPU TO COM */ 
7* PETING TERMINAL TASKS. IT PERFORMS THIS FUNCTION x/ 


7* BY SEQUENTIALLY SCANNING THE TCTSSTATUS BYTE */ 
7*& ASSOCIATED WITH EACH TERMINAL LOOKING FOR A TASK */ 
7* REQUIRING THE CPU. THE EFFECT PRODUCED IS THAT / 
7x OF A ROUND-ROBIN SCHEDULING ALGORITHM. WHILE THE #*/ 
7* MONITOR IS LOOPING, IT INITIATES SWAPPING AND */ 
7* PRINTING CF SPOOLER FILES AS RE@QUIRED. */ 
7% CALLED BY: MTSSIPL, MTS (SVCMOD) KS 


A RR KR KR RR KK RR RK STK RE OK RK EK OK OK OK OAS SE OE RS ER RE RK OK KKK KZ 
SP=.SYSSSTACK(CETCGP]); “kx SET STACK POINTER x/ 
7* LOCK CUT SWAPPING *7 
LOCKR=¢€ A= LOCK \ O18); 
/* INITIALIZE TEMP TASK COUNTER x7 
TN=( A=TASK) ; 
LOOP: /* SEARCH FOR READY TASK *~7 
TN=( A= TNt+1,363H); 7*x INCREMENT TASK NUMBER x7 
“* TEST FOR INACTIVE TASK */ 
DE=.TCTSSTATUS; CALL CINDEX]; A=MCHL) ; 
IF €A::®) ZERO GOTO LOOP; 
7* TEST BIT ®© —- BOOTSTRAP LOAD *7 
IF (€A=>A) CY THEN 
DO; 
DE=.TCTSSTATUS; A=TASK; CALL [( INDEX]; 
IF (A=<MCHL)) CY 
(B=(A=TN); A=TASK-B) !ZERO THEN 
DO; DIR=( A=COUT]); CALL SWAP; END; 
TAS K=( A=TN) ; 
GOTO BOOTSTRAP; 
END; 
7* TEST BIT 1 - MCP */7 
IF (A=>A) CY THEN 
DO; 
A=TASK; STACK=PSW; 7* SAVE OLD TASK NR x*/ 
TASK=( A=TN); CALL (CMCP]; 
BDE=.TCTSSTATUS; A=TN; CALL C INDEX]; 
M(HL)=(A=MC(C HL) @OFDH); 
/k* RESET BIT 1 *7 
PSwW=STACK; TASK=A; 
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/* RESTORE OLD TASK NR */ 

TN=( A=TN-1,803H); GOTO LOOP; 
/* CONTINUE WITH TASK AFTER */ 
“* SYSTEM CALL PROCESSED */ 


7% SaiGeT 2 - RESERVED FOR CASSETTE x*/ 

oo SE BIT 3 - RESERVED FOR ASYNC */7 

oe SKIP BIT 4 - BLOCKED FOR PRINTER I/O */ 
7x TEST BIT 5S - BLOCKED FOR TERMINAL 1/0 x/ 


IF (€A=>A) CY THE 
DO; 
A=TN; CALL ([GETSTERMSSTATUS] ; 
IF (A: :CINPUTSWAITINGJ) ZERO THEN 
DO; “* NO LONGER BLOCKED x*-7 
DE=.TCTSSTATUS; A=TASK; CALL [C INDEX]; 
IF (€A=<MCHL)) CY 
& (B=(A=TN); A=TASK-B) !ZERO THEN 
DO; DIR=CA=CLOUT]); CALL SWAP; END; 
TASK=( A=TN) ; 
DIR=(A=£INJ); CALL SWAP; 
CALL [CREADSTERMINAL] ; 
SWAPSSTACK( 1) =A; 
7* RETURN CHAR REQUESTED */ 
DE=.TCTSSTATUS; A=TASK; CALL ({ INDEX]; 
MC AHL)=( A=MCHL) ODFH); 
/* RESET BIT 5 x*/ 
GOTO RESUMESEXECUTION; 
END 
ELSE GOTO LOOP; 
END; 
7* TEST BIT 6 - RESUME EXECUTION - FM DISK 7 
IF (€A=>A) CY THEN 
DO; 
DE=.TCTSSTATUS; A=TASK; CALL C INDEX]; 
IF (A=<MCHL)) CY THEN 
DO; DIR=( A=CLOUT]); CALL SWAP; END; 
TASK=( A=TM) ; 
DIR=€A=CLINJ); CALL SWAP; 
GOTO RESUMESEXECUTION; 
END; 
7* BIT 7 SET —- RESUME EXECUTION - IN MEMORY */7 
GOTO RESUMESEXECUTION; 
/* END MONITOR x*/7 


BOOTSTRAP: 
AS RRRRKRRKRKEE REE REE RK KR KKB KK ERE KKK KR KR KEKE KK EK / 
/* THIS ROUTINE EXAMINES THE DISK MAP FOR THE CURRENT x*/ 
/7* TASK; DETERMINES THE VIRTUAL DISK ATTACHED TO DRIVEx/ 
/* As LOADS THE FIRST S312 BYTES FROM THE DISK INTO */ 
7* MEMORY STARTING AT THE BASE OF THE USER SWAP AREA; *7 
7* AND THEN TRANSFERS CONTROL TO THE CODE JUST LOADED. */ 
SA RREKRRER ERE BBE K RRR KKK RRR EI RK IIE OR EK EK ORK / 
/* DETERMINE DISK NR ATTACHED TO DRIVE A «/ 
DE=.TCTSDM; A=TASK; CALL [ INDEXB]; 
A=MCHL) 1FH; 
/* DETERMINE BOE FOR DISK x*/ 
DE=.DMTSBOE; CALL [ INDEX2]; CALL [GET]; 
7* READ FIRST SECTOR ON VIRTUAL DISK *7 
DE=[ MEMSBASE]; L=[LREAD]; CALL [MINISDISK]; 
IF LDISKSERROR] THEN 
DO; 7x BUMP TASK OFF SYSTEM x/ 
CALL BUMPSTASK; 
CALL WRITESREC; 
GOTO MONITOR; 
END; 
7* UPDATE SYSTEM STATUS */ 
DE=.TCTSSTATUS; A=TASK; CALL [£ INDEX]; 
A=M( HL) ‘N 80H; 7* SET BIT 7 *-7 
MC BHLI=CA=A OFED); “7* RESET BIT @ */ 
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CALL WRITESREC; 

TASKSTIMER=( A=[€ TIMESLICE]); /* RESET TASKSTIMER x/ 
LOCK=(A=LOCK @FEH); /* UNLOCK SWAPPING x/ 
SP=OFEFFH; 

GOTO [ MEMSBASE] ; 

7* END BOOTSTRAP */ 


RESUMESEXECUTION: 
LP RRR ERR RRR EK ETE IEE RE I IE IE BE I EE BE OE AE OR BE AR OR NE NE DE OE SORES SEE 7 
/* THIS ROUTINE TRANSFERS CONTROL BACK TO A USER TASK x*/ 
/7/* WHICH HAS BEEN SWAPPED INTO MEMORY. 7 
ge ete Seite ore otc oie Oks ac abe oe iw obs ata oke she ots tee ora nhs aks ote oie ats ole ots ois 210 ots obs ste ote ois ake cha os ie aie che os Meee he I hee eek eS, 

CALL WRITESREC; 

/* UPDATE SYSTEM STATUS x*/ 

TASKSTIMER=( A=[TIMESLICE]); 7x RESET TASKSTIMER x/ 

/* RESTORE ORIGINAL VALUE OF STACK POINTER *7 

7* AND ALL REGISTERS FROM SWAPSSTACK cy 

SP= .SWAPSSTACK; 

PSW=STACK; BC=STACK; DE=STACK; HL=STACK; 

SAVHL=HL; HL=STACK; 

SP=HL; HWL=SAVHL; /“* RESTORE USER SP x/ 

STACK=PSW; 

LOCK=(A=LOCK OFEH);s /* UNLOCK SWAPPING x/ 

PSW=STACK; 

PETURN; “* RETURNS TO INTERRUPT POINT x*-/ 

“7% IN USER SWAP IMAGE *S 
/* END RESUNESEXECUTION x7 


EOF 

SE iy del ae lacey he, cop an ab vce si arc Spt phan od aps in orcas aca. ob pe abo ge ope We 
SERERKRRKERKKKKEKEK UTILITY PROCEDURES 6K KKRRKKRKKRKRKKKZ 
A BKK BRR KR RE KE RK RR RK BRK RK OR BK KR KE ERK KK KNEE / 


INDEX: PROCEDURE; 
A RRR RIE KKK RK SE RR OK IR RE A OR OK ERK IS OR IK OK IK IR EK OR OE OE SS EK NOK Z 


“7* GIVEN THE BASE ADDRESS OF A BYTE VECTOR AND AN KH 
7* INDEX VALUE, THIS PROCEDURE CALCULATES THE ADDRESS */ 
“* OF THE INDEXED ENTRY. */ 
/* INPUT: A - INDEX VALUE CUSUALLY TASK) */ 
7 DE - BASE ADDRESS OF VECTOR */ 
7* QUTPUT: BC - INDEX VALUE */ 
7% DE - SAME AS INPUT a 
7% HL - CALCULATED ADDRESS OF INDEXED ENTRY KS 
/* CALLED BY: SWAP, MONITOR, VALSDISK, CLEARSFLAG, */ 
1% ATTACH, LOGIN, QUIT, SIZE, TERMSBLOCK, x/ 
1% SELECTSDRIVE */ 
A RRR RRR RK RRR KR RK RK RR RK RR RK RR ROR RR RR RK RRR RR RRR RAK KKK KK 

B=90; C=A; 

HL=BC+DE; 

END INDEX; 


INDEX2: PROCEDURE; 

A RRR RRR RNR HR TE RK REE OR KR IE OK EK EK MERE IEE IK RK HN RR OZ 
/*% GIVEN THE BASE ADDRESS OF AN ADDRESS VECTOR AND AN x/ 
7* INDEX VALUE, THIS PROCEDURE CALCULATES THE ADDRESS */ 


/* OF THE LOW ORDER BYTE OF THE INDEXED ENTRY. */ 
7* INPUT: A - INDEX VALUE CUSUALLY TASK) */ 
A% DE - BASE ADDRESS OF VECTOR */ 
7* OUTPUT: BC - CALCULATED OFFSET = 2 * INDEX VALUE */ 
1% DE - SAME AS INPUT */ 
1% HL - CACULATED ADDRESS OF INDEXED ENTRY */ 
7x CALLED BY: SWAP, BOOTSTRAP, SIZE, SELECTSDRIVE */ 


A RRR RE RE OK EK OR RE RK OR OK OK OKC OR KE EK OK OR KOK OK KR NS OK NE OK OE OK SK EK NER KK OK OR KR 
B=0; C=(A=<< A); 
HL=BC+DE; 
END INDEXK2; 


INDEX4: PROCEDURE; 


ARE TES AR ARR OR RAR ORR AR OR ARG OEE HS IS A IS OA HE EO OR AR AE OE 2S SIE SE OS BS OS BE OR AC OE Of OS SEAS OE 7 
“* INPUT: A - INDEX VALUE *S 
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A* DE —- BASE ADDRESS OF VECTOR */ 
/* QUTPUT: BC —- CALCULATED OFFSET = 4 * INDEX VALUE */ 


7% DE — SAME AS INPUT */ 
S% HL - CALCULATED ADDRESS OF INDERED ENTRY */ 
7* CALLED BY: VALSKEY KS 


SRRRKRRK ERK KERB KEK KKK KER KER KARE RR EE RAR BK RE KR KERR ES 
B=0; C=(A=<< CA=<< AD); 
HL=BC+DE; 
END INDEX4; 


INDEXS: PROCEDURE; 
S RRR KKK EE RRR RK KR IER KR ER REE KR RE OE REE ER HR OK KK SZ 


7/* INPUT: <A - INDEX VALUE 7 
o® DE - BASE ADRESS OF VECTOR ee 
/* OUTPUT: BC -—- CALCULATED OFFSET = & * INDEX VALUE */ 
yas DE — SAME AS INPUT */ 
7% HL —~ CALCULATED ADDRESS OF INDEXED ENTRY KS 
/* CALLED BY: BOOTSTRAP, VALSDRIVE, CLEARSDM, ATTACH, x*-/ 
/® SELECTSDRIVE *K/ 


A RBBB RR RK AS RE HS OR OR RE RR OR RR OR RRR RR KR RK ORE KKK RRR REE KZ 
B=0; C=(€A=<< €A=<< CASS << ADD); 
HL=BC+DE; 
END INDEXKB; 


PUT: PRCCEDURE; 
re che oie ohaeke ore he ce As OVS rs om ota rin oom oka Oke che cha ols ene viv ete of ote one ofs oe af ore afm ahs of ate oto aia ole nis one oka ove fs overs Mieke oe oko nieeks rece, 


/* STORE A TWO BYTE ADDRESS IN A SPECIFIED VECTOR. KS 
7* INPUT: DE - ADDRESS TO BE STORED *K/ 
A HL - BASE ADDRESS OF VECTOR */ 
7* OUTPUT: BC - UNCHANGED *S 
7% DE - SAME AS INPUT */ 
Sk HL - BASE ADDRESS + 1 KS 
7* CALLED BY: RECOVER, INITIALIZE */ 


SRR ERR KR BRR RK KK RRR RR RR RR RR RRR EB RR ER SE RK OR EE EE KZ 
MCHL)=E£; HL=HL+1; MC HL) =D; 
END PUT; 


GET: PROCEDURE; 
ABR ARR HEAR RR RR A EO TR AS OES PE OS TO IS AS iE OS TE OR BS IE NR EE EAE IE NS OK OK OE EE OIE NE OS OK OR EO ER 7 


/* FETCH A TWO BYTE ADDRESS FROM A SPECIFIED VECTOR. */ 


* INPUT: HL - BASE ADDRESS OF VECTOR KS 
/* OUTPUT: BC - ADDRESS FETCHED yd 
ax DE - ADDRESS FETCHED 7 
S% HL - BASE ADDRESS + 1 */ 
/* CALLED BY: SWAP, BOOTSTRAP, SIZE, SELECTSDRIVE Se 


AREER ER IRE RA RE AB AB AS A AB AR OR AB A OR OE BEB OR AB OE RS BC AR OS AB IC AR ES I OE OE AG ACO AS OK ORE OR 7 
E=MCHL); HL=HL+1; D=MNC HL); BC=DE; 
END GET; 


MOVBUF: PROCEDURE; 

SP RRR RRR RK RARE RRR BRR KR RR RR RRR RRR RR RE RR EE KE RK / 
/* THIS IS A GENERAL PURPOSE UTILITY PROCEDURE WHICH */ 
7* MOVES A SPECIFIED NUMBER OF BYTES FROM A SOURCE */ 


/* BUFFER TO A DESTINATION BUFFER. */ 
“* INPUT: BC —- NUMBER OF BYTES TO BE MOVED KZ 
“® DE - BASE ADDRESS OF SOURCE BUFFER KS 
S% HL - BASE ADDRESS OF DESTINATION BUFFER */ 
7* CALLED BY: MTSSIPL, ABORTSIPL, SEARCHSDIRECTORY, */ 
yes LCGIN, READSFLOPPY, WRITESFLOPPY 7 
SRKRRARKRK RK KKK RK RRR RK RKR KARR KR KK KK BRK RK ERK KR KKK KERR KKK /Z 
REPEAT ; 


M¢ HL) =€ A= MC DE) D ; 

HL=HL+1; DE=DE+1; 
UNTIL (BC=BC-1; A=6; A::C) ZERO (CA::B) ZERO; 
END MOVBUF; 


MINISDISK: PROCEDURE; 

A RR IEERRRR K RRK K RK RRKK AER RRR RK KE EE NE ORR OE OK KK RK EK OR ORE OK KZ 
/* THIS PROCEDURE TRANSFERS A SPECIFIED 512 BYTE KS 
/7* BUFFER BETWEEN MEMORY AND THE MINI-DISK. THE DIR- */ 
“7* ECTION OF THE TRANSFER IS INDICATED BY THE OP CODE. */ 
7 ERROR PROCESSING IS LIMITED TO CHECKING THE STATUS */ 
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RETURNED BY THE MINI-DISK CONTROLLER FOR ’ NORMAL */ 
COMPLETION.’ WHEN ANY OTHER STATUS IS RETURNED THE x/ 
ROUTINE DISPLAYS THE MESSAGE ’HARDWARE ERROR’ ON KS 
THE TERMINAL CURRENTLY ALLOCATED THE CPU AND */ 
ABORTS THE OPERATION. 7 
INPUT: BC - MINI-DISK SECTCR NUMBER */ 
DE - DMA BUFFER BASE ADDRESS */ 
L - OPERATION CODE: */ 
1 = READ *K/ 
2 = WRITE K/ 
3 = WRITE/VERIFY */ 
OUTPUT: A - RETURNS 00H IF COMPLETION NORMAL, 7 
OTHERWISE RETURNS FFH */ 
BC - SAME AS INPUT */ 
DE - SAME AS INPUT KS 
¢ CALLED BY: READSDIRECTORY, RECOVER, INITIALIZE, */ 
WRITESREC ,SWAP,BCOTSTRAP, READSBUF, */ 
WRITESBUF */ 
CFR RAR AR ROR RAR AR AB OB OK EIR ES KR OR OK ROR OR IS ROR AR OB OR OR A OR OR RIS AR OR OS OR AE OIE OR AR AR AB OB OR ORR ARR OB I 
CMACRO ABNORMALSCOMPLETICN ‘OFFH’ 3] 
CMACRO HARDWARESERROR °3’] 
[MACRO MTSSMSG ° 1637H’ ] 


EOF 


7k SET DCS CHECKSUM 
M(4CH) =( A=ONB,\C,ND,NE, NL) ; 


IN LOCN 4CH */ 


/* SET SECTOR NUMBER IN DISK CONTROL BLOCK x/ 


M( 45H) =(A=B); M( 44H) =CA=C) ; 


7* SET DMA BUFFER ADDRESS IN DISK CONTROL BLOCK *~ 


MC 43H) =CA=D); MC 42H) =CA=E) ; 

7* INITIATE OPERATION x*/7 

M( 40H) =(A=L) ; 

7% WAIT UNTIL OPERATION 

REPEAT; 
A=MC413) ; 

UNTIL (A: :0) 


COMPLETE 


7ZEROC; 


7 


/* TEST A FOR COMPLETION STATUS */ 


Ir (MC(41H)=CASA-1)) ZERO RETURN; 
M( 41H) =( A=O) ; 

E={ HARDWARESERROR] ; 

CALL [CMTSSMSG] ; 

A=C ABNORMAL2 COMPLETION] ; 

END MINISDISK; 


7% NORMAL COMPLETION x*/ 


ete hee eee oie ie oe oh oe oF oe oe hese ae Ne oe sie ake ok sick SK SK oe SEER EE SRE SK NOSE fe SE SE SE SE EE SK Se ese / 
PRR RR KERR EE TN ITIAL PROGRAM LOAD xoxckxokoR RRR RZ 
A oe he He oh Se RA he Be Ke HS Ko Seca He CAS ge HG CO He Ho TE ae He A Ne ICE SMCS AEE SE CE SE 


/ RRC RRR EE OTNTERMODULE LINKAGE MACROS ®**#**EKKRKEKR 


CINT MB M2B SB TB] 
C(MB:=6300H] [(M2B:=66600H] CSB:=1F00H)] [CTB:= 1000H] 


C MACRO 
C MACRO 
C MACRO 
C MACRO 
C MACRO 
C MACRO 


MONITOR °CNEX MB + 8SFHI]’] 
MOVBUF ’CHEX M2B + 41H]’] 
PUT °CHEX M2B + 31H] 
MINISDISK ’CHEX M2B + 54H)’ ] 
MTS °CHEX SB + @]’] 

MTSSMSG °CHEX TB + 8&37H]’] 


C MACRO 
C MACRO 
C MACRO 
C MACRO 
C MACRO 
C MACRO 
C MACRO 
C MACRO 
[ MACRO 
C MACRO 
[ MACRO 
(MACRO 


Dit xe to + O27)" } 


CLEARSSTATUSSLINE 
TERMINALSSTATUS 
READS TERMINAL 
WRITESTERMINAL 
RECSFILE °SE91H?’ ] 
TCTSEOE ’°SECSH’ ] 
CNYGSFILE °SE9UCH’ ] 
DMTSFLAG °SECDH’ ] 
DMTSBOE ° 3EEDH’ ] 
DMTSEOE °’3F2DH’ ] 
DNTSKEY ’°3F6DH’ ] 
SYS3STACK *3CVAH’ ] 


*CHEX TB + &D2HI1"} 
*CHEX TB + 8&DCH)’] 
*CHEX TB + 93CH]°J 
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A RARKHRKKKRKKKKK GENERAL PURPOSE MACROS K®X&**XKKKKKRRRRK/ 


[INT MEMSBASE DIRSBASE SSBSBASE TOP] 
[MENSBASE:=50000H] ([SSBSBASE:=3E96H] [TOP:=20] 
C[DIRSBASE:=MENGBASE + 200H] 

[MACRO READ °1°] 

[MACRO DISKSERROR ’(A::0) !ZERO’ ] 

[MACRO DISABLESTIMER ’ OUT(2)=(A=1)7) 

[MACRO CLEARSCSSTSINT ° OUT( &5H) =(A=10H) °] 
[MACRO CLEARSPRNTSINT °A= INC GAH) °] 

[MACRO RESETSTIMER ’OUT(2)=(CA=0) 7] 


ARERRKRKKEKKREKERK MODULE DECLARATIONS 8&4 RREKKRRKKKRKR KS 


DECLARE I BYTE; 
DECLARE MAK(2) BYTE; 
/* ADDRESS OF LAST ENTRY + ! IN DIRECTORY IMAGE */ 


DECLARE RECSNAME(9) BYTE INITIAL (’ .MTSRCVRS’) ; 


J RRR RR RR KAR REE PROCEDURES eK RRR AER RK ROR OR RRR RK Z 


ABORTSIPL: PROCEDURECNSG) ; 

A RRR ERR RK KR IK RR ERK MEO IK ET RE OR OR ACRE OK OOK ERK 
7* WHENEVER A CONDITION OCCURS DURINC THE IPL PROCESS x*/ 
/* WHICH PREVENTS NORMAL COMPLETION OF THE IPL THIS */ 


7* PROCEDURE IS CALLED TO TERMINATE EXECUTION AND / 

7* DISPLAY AN ERROR MESSAGE AT TERMINAL 9. 2/7 

7* INPUT: MSG - BASE ADDRESS OF ERROR MESSAGE */ 

7 TERMINATED BY °83’ 7 

7% CALLED BY: READSDIRECTORY, INITIALIZE, RECOVER, */ 

SRR RR IRE RE IE NE ITE KR I ROK AR RK EK NEN IR ICE NC KK OK OE IK OR NER OR KR KZ 
DECLARE ABORTSNSG DATA (’? IPL ABORTED —- °); 


/* DISPLAY * FPL ABORTED’ AT TERMINAL O */ 

BC=!14; DE=.ABORTSMSG; HL=0700H; 

CALL [ MOVBUF] ; 

HL=HSG; A=’S’; 

DO C=0 BY C=Cr+1l WHILE (A: : MCHLI) !ZERO; 
HL=HL+1; /* COUNT CHARS IN MSG x*/ 

END; 

B=9; DE=(HL=MSG@); HL=9876EH; 

CALL {MOVBUF]; /7* DISPLAY MSG AT TERMINAL 9 */7 

HALT; 

END ABORTSIPL; 


READSDIRECTORY: PROCEDURE; 

AS RARRRAK RAR RK AK KK BE KR RK RR RK RK RR RK RE ER OK BE OR OR OR RK AER RRR KK EK KOK Z 
7* DURING THE INITIALIZATION PROCESS IT IS NECESSARY eS 
7* TO DETERMINE THE SECTOR NUMBERS OF SEVERAL SYSTEM */7 
7X FILES WHICH RESIDE ON THE MINI-DISK IN SYCOR FORMAT. «7 
7* MULTIPLE DIRECTORY SEARCEES COULD LEAD TO REPEATEDLY*/ 


7* READING THE SAME BLOCK OF MINI-DISK SECTORS. TO K/ 
/* ELIMINATE MOST OF THESE UNNECESSARY READ OPERATIONS */ 
7% THIS PROCEDURE READS THE ENTIRE SYCOR DIRECTORY KS 
7* INTO MEMORY AT ONE TINE, THUS REDUCING TITE OVERHEAD *-7 
7* INVOLVED IN MULTIPLE SEARCHES. */ 
7* CALLED BY: MTSSIPL */ 


AS RRRA RRR RRR RRR RS BB AE OR RK OK OR ROK RR K RR RK RE AE SOR RR RR OK RR EK / 
[INT SYCORSDIRSBASE] /* SYCOR DIRECTORY BASE */ 
([SYCORSDIRSBASE:=20H] /“”* SECTOR NUMBER KS 
DECLARE MSG DATA (*°CANNOT READ DIRECTORYS’" ) ; 

/* SET UP REGISTERS FOR DISK READ x*/ 
BC=( HEX SYCORSDIRSBASE] ; 
DE=(HEX DIRSBASE] ; 
7* READ NUMBER OF SECTORS INDICATED */7 
7* IN DIRECTORY HEADER RECORD */ 
REPEAT; 
L=(READ]; CALL ([MINISDISK] ; 
IF (DISKSERROR] CALL ABORTSIPL(.MSG) ; 
DE= ( HL=20@H+DE) ; BC=BC+1; 
UNTIL CA=MCC HEX DIRSBASE+@AH]); A::C) CY; 
7* CALCULATE ADDRESS OF LAST ENTRY + 1 IN IMAGE */ 
B=( HEX SYCORSDIRSBASE- 11]; 
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A=A-B; 7% A = NR SECTORS IN DIRECTORY */ 
D=( A=<< A); 

E=@; /* DE = NR SECTORS * S12 */ 

MAX= (HL=( HEX DIRSBASE+1]+DE) ; 

END READSDIRECTORY; 


SEARCHSDIRECTORY: PROCEDURE; 
ARRAN RR ER RRR MRR ETT I RE HERO EI IEE IR SK / 


Ak 
7% 
S* 
7 
S# 
is 
7x 
AR 
A 
7% 


GIVEN THE BASE ADDRESS OF A VECTOR CONTAINING THE 
NAME OF A FILE IN SYCOR FORMAT, THIS ROUTINE WILL 
SEARCH THE DIRECTORY IMAGE READ INTO MEMORY BY 
READSDIRECTORY. IF THE FILE ENTRY IS FOUND, THE 
BOE AND EOE VALUES ARE RETURNED. 
INPUT: DE - BASE ADDRESS OF FILENAME VECTOR 
ASSUMED TO BE 8 BYTES LONG 

OUTPUT: BC - BOE OR FFFFH IF FILE NOT FOUND 

DE - EOE OR FFFFH IF FILE NOT FOUND 
CALLED BY: INITIALIZE, RECOVER 


*/ 
*K/ 
I 
+e 
*/ 
* 
*/ 
*/ 
*7 
*/ 


A BOR KR HE RE ROR RK KR RK OK OR AS OR NOE OR OK OK OR OR SK NE OK OK RE RK IER OK ORE ROR ROK ERA KE / 


DECLARE LOOP LABEL; 
7* MOVE FILENAME TO LAST ENTRY + 1 */7 
BC=8; HL=MAX; CALL [MOVBUF] ; 


DE=( HEX DIRSBASE+41H]; /* ADDRESS OF FIRST ENTRY */ 


LOOP: 7x ADVANCE TO NEXT ENTRY xX/ 
STACK=DE; HL=MAX; B=6&; 
REPEAT; /7* COMPARE CHAR BY CHAR *#*/ 
IF (A=MCDE); A: :M¢HL)) ZERO 
N CIF €A::0) ZERO ¢(A=MCHL)-20H) ZERO 
THEN CY=1 ELSE CY=90) CY 
THEN /x CHAR MATCH */ 
DO; 
DE=DE+1; HL=HL+1; 
END 
ELSE /7* NON-MATCH */ 
DO; DE=STACK; 
DE= ( HL=405+DE) ; 
GOTO LOOP; 
END; 
UNTIL (B=B-1) ZERO; 
SP=(HL=2+SP); “* CLEAR STACK */ 
7% FALLING THRU LOOP MEANS NAMES MATCH, a7 
7* MUST TEST FOR SUCCESS OR FAILURE OF SEARCH */ 
IF €(A=HMAXC1); As:D) CY 7k K:i:Y=CY => KY */ 


\NCIF ZERO (CA=MAK(Q); A::E) CY THEN CY=1 ELSE CY=96) 


CY THEN 
DO; /* SEARCH FAILED */7 
BC=OFFFFH; DE=BC; 


END 
ELSE DO; 7* SEARCH SUCCESSFUL */ 
HL=3+DE; 


C=M( HL); HL=HLt+I1; 
B=MC HL); HL=HL+1; 
E=MC HL); HL=HL+1; 
D=MC HL) ; 
END; 

END SEARCHSDIRECTORY; 


RECOVER: PROCEDURE; 
A RRR RR ERR KR ROR HE EK AR ER RR AR OR ORK ER AE KK OR COR OR OR EE RK RR ERE AK 


7 
oR 
as 
“x 
aS 

* 
Sk 
as 
7% 
LK 
7K 
AX 
7 


NTS HAS BEEN DESIGNED SO THAT THE SYSTEM STATE AT 
ANY INSTANT IS DEFINED BY A COMPACT, CONTIGUOUS 
GROUP OF BYTES KNOWN AS THE SYSTEM STATE BLOCK. 
EACH TIME THAT SWAPPING OCCURS THE SSB IS WRITTEN 
TO THE MINI-DISK FILE .MTSRCVR. IF THE TASK JUST 
SWAPPED IN CAUSES A SYSTEM CRASH, RECOVERY IS 
ACCOMPLISHED BY REBOOTING MTS AND ANSWERING ’Y’ TO 
THE RECOVERY QUERY. MTS WILL READ .MTSRCVR BACK 
INTO THE SSB, DELETE THE OFFENDING TASK, AND 
CONTINUE WITH THE NEXT READY TASK. 
NOTE: THIS PROCEDURE USES THE FACT THAT THE BOE 
AND EGE VALUES RETURNED BY SEARCHSDIRECTORY 
ARE EQUAL FOR A SINGLE-SECTOR FILE. 
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*K 7 
Te 
*7 
*K/ 
*/ 
*/ 
ae 
*7 
*/ 
*7Z 
7 
*7 





o* 


CALLED BY: MYIFSsIPL 


ae 


A RRR RAR RR ER RR RE GK RE CK RE AE AE SR SE OR ENE HS HE OK OK ER OEE OR OK EE RE EE ME EO OK I ER ROK Z 


{MACRO BUMP °-2’] 

[MACRO OCUTSOFSBOUNDS °7’] 

7* FIND MINI-DISK SECTOR ADDRESS OF .MTSRCVR */ 
DE= . RECSNAME; 

CALL SEARCHSDIRNECTORY; 

IF ¢€A=B; A::OFFH) ZERO CALL ABORTSIPL(.RECSNAME) ; 
7* READ .MTSRCVR INTO SSB */ 

HL=( RECSFILE]; CALL [PUT]; 

DE=( SSBSBASE3 ; 

L=£READ]; CALL (CMINISDISK]; 

IF [DISKSERROR] CALL ABORTSIPL(.RECSNAME) ; 

/* DELETE TASK CAUSING CRASH */ 

C=( BUMP]; 

CALL [MTS]; 

E=( OUTSOFSBOUNDS] ; 

CALL C(MTSSMSG]I ; 

END RECOVER; 


INITIALIZE: PROCEDURE; 
A MOMS HE NE EK NE RE NEE OR OK SK TK BIS OK NE TIE HE ONS OK OE OK OK OK TIC ER KE OK RC IE IE OK AE TE OK OE OK EE / 


7 
eS 
i 
* 
1% 
a 
7 * 
7% 
% 
7H 
7H 
is 
7 2K 
7% 
CR 
7% 
Lx 
os 
i 


THE SYSTEM STATE BLOCK CONSISTS OF THREE SETS OF 
VARIABLES: SYSTEM CONTROL, TASK CONTROL TABLE, AND 
THE DISK MAP TABL&. THE OBJECT MODULE GENERATED BY 
THE ML&O0 COMPILER CONTAINS INITIAL VALUES FOR 
SYSTEM C@QNTROL VARIABLES AND MCST OF THE TCT. IN 
ORDEN TO INITIALIZE THE REST OF THE TCT IT IS 
NECESSARY TO SEARCH THE SYCOR DIRECTORY IMAGE 
COPIED INTO MEMORY BY READSDIRECTORY FOR BOE AND 
EOE VALUES FOR THE RECOVERY FILE AND ALL FOUR SWAP 
FILES. TO INITIALIZE THE DMT THE VIRTUAL DISK 
CONFIGURATION FILE, .MTSCNFG, MUST BE READ INTG 
NEMORY AND BCE AND EOE VALUES FOR THE VIRTUAL DISK 
FILES EXTRACTED FROM THE SYCOR DIRECTORY IMAGE. 
THE PROTECTION ATTRIBUTES FCR EACH VIRTUAL DISK 
ARE ALSO COPIED INTO THE DMT FROM .MTSCNFG. 
NOTE: THIS PROCEDURE USES THE FACT THAT THE BOE 
AND EOE VALUES RETURNED BY SEARCHSDIRECTGRY 
ARE EQUAL FOR A SINGLE~SECTOR FILE. 
CALLED BY: MTSSIPL 


*K/ 
: 
*/ 
7 
KH 
ae 
KZ 
*/ 
*/ 
KS 
«KS 
*K/ 
*/ 
*/ 
*/ 
*/ 
K/ 
i / 
*/ 


A) HRT OR ER TR RR RR AE OK IS RR OK OE OE OK SK AE AG OK OB HE BIS OIE SIE NS AS OOK OB OK OR OK EK AE ROR ASO OK ROK RK EK HK / 


DECLARE ENTRYSBASE(2) BYTE; 
DECLARE CNFGSNAME(9) BYTE INITIAL (€’.MTSCNFGS’); 
DECLARE SWAPSNAME(9) BYTE INITIAL (€’.MNTSSWPOS’),; 
DECLARE SYSDISK(9) BYTE INITIAL (’SYS DISKS’); 
/%* SET UP RECOVERY FILE */ 
DE=.RECSNAME; CALL SEARCHSDIRECTORY; 
IF (CA=B; A: :OFFH) ZERO CALL ABORTSIPL(.RECSNAMBE) ; 
BHL={ RECSFILE]; CALL [PUT]; 
/* SET UP TASK CONTROL BLOCK IN SSB */ 
I=(€A=4); STACK=( HL=( TCTSEQCE])); 
REPEAT; 

DE= .SWAPSNAME; CALL SEARCHSDIRECTORY; 

IF (€A=B; A::@FFH) ZERO 

CALL ABORTSIPL( .SWAPSNAME) ; 

7% CHECK THAT SWAP FILE AT LEAST 16K */ 

L=CA=!C,+1); H=CA=!B,++90O) ; 

HL=HL+DE; 


IF (CA=L; A::31) CY CALL ABORTSIPL( .SWAPSNAME) ; 


HL=STACK; CALL (PUT]; 
DE=BC; BC=-9; 
HL=HL+BC; CALL [PUT]; 
BC=9; STACK=( SL=HL+BC) ; 
SWAPSNAMEC 7) = ( A=SWAPSNAME( 7) +1); 
UNTIL ¢€I=¢€A=I-13) ZEROQ; 
SP=(HL=2+SP); /“* CLEAR STACK */ 
“7x SET UP DISK MAP TABLE IN SSB */ 
DE=.CNFGSNAME; CALL SEARCHSDIRECTORY; 


IF (A=B; A::OFFH) ZERO CALL ABORTSIPL(.CNFGSNAME) ; 


HL=CCNFGSFILE]; CALL ( PUT]; 
7* READ CONFIGURATION FILE INTO MEMORY */ 
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DE-( MEMSBASE]; L=({ READ]; CALL (MINISDISK]; 
IF (DISKSERROR] CALL ABORTSIPL( .CNFGSNAME) ; 
I=(A=60); ENTRYSBASE=( HL=(DE=({ HEX MEMSBASE + 2]))); 
REPEAT; /“* STEP THRU CONFIGURATION FILE */ 
CALL SEARCHSDIRECTORY; 
IF (A=B; A: :OFFH) !ZERO THEN 
DO; /“x* VIRTUAL DISK (1) EXISTS %*/ 
STACK=BC; B=@0; C=(A=<< I); 
HL=( DMTSEOE1+BC; CALL [PUT]; 
DE=STACK; HL=(DMTSBOE]+BC; CALL [PUT]; 
BC=8; DE=( HL=ENTRYSBASE+tBC) ; 
B=0; C=(A=<<CA=<<I))3 
HL={ DMTSKEYI+BC; 
DO B-0 BY B=B+l1 WHILE (A=B-4) {fZERO; 
MC HL) =( A=MCDE)) ; 
DE=DE+!; HL=HL+1; 
END; 
B=0; C=(A=I1); 
HL={ DMTSFLAGI+BC; 
IF ( A=MCDE) ; 73:(B=’R°)) ZERO THEN 
MC HL) = 9DH 
ELSE DO; 
IF (€A::(B=’P’)) ZERO THEN MC HL)=05H 
ELSE MCHL)=O18; 
END; 
END; 
DE=( HL=ENTRYSBASE+(BC=13)); 
ENTRYSBASE= HL; 
UNTIL (I=(A=I+1); A?::32) ZERO; 
/* CHECK THAT DISK 0 EXISTS */ 
HL=( DMTSFLAG] ; 
IF (A=MCHL) 01) ZERO CALL ABORTSIPL( .SYSDISE) ; 
END INITIALIZE; 


MTSSIPL: 

PRR RK RR ARK RENE ER OR RR EK OR ENR RK RAE ER SOE AR OC OO OK SEK EER OK / 
/* THIS ROUTINE IS THE INITIAL ENTRY POINT INTO MTS. x*/ 
“7% THE SYCOR 440 LOADER TRANSFERS CONTROL HERE AFTER x/ 
7x THE SYSTEN OBJECT MODULE HAS BEEN LOADED. DURING x*/ 


7* IPL ALL PERIPHERAL DEVICES ARE RESET, THEN ITs 7 
7* READS THE SYCOR DIRECTORY INTO MEMORY, AND ASKS */ 
/* THE OPERATOR AT TERMINAL @© WHETHER RECOVERY IS */ 


/* REQUIRED. IF THE ANSWER IS ’Y’ THEN THE PROCEDURE */ 
/* RECOVER IS CALLED TO READ THE FILE .NMTSRCVR INTO 7 
/* THE SYSTEM STATE BLOCK. OTHERWISE THE PROCEDURE cy 
7*® INITIALIZE IS CALLED TO BUILD AN SSB FROM INFOR- K/ 
* MATION CONTAINED IN THE SYCOR DIRECTORY IMAGE AND xv 

/* THE FILE .MTSCNFG. ONCE IPL IS COMPLETE CONTROL IS x*/ 
/* TRANSFERRED TO THE PROCESSOR MANAGEMENT SUBMODULE *x/ 
/*x WHICH WILL CONTROL ALL SUBSEQUENT PROCESSING. y 
7* CALLED BY: SYCOR SYSTEM LOADER 7 
etek He techs see che eae oh aks oe eke Xe aie oie ote cte ee OK Oo KE ORE KOR CS EE EE SK SER EEE KKK KEK / 

DECLARE CWAIT, TEST) LABEL; 

DECLARE IPLSMSG( 15) BYTE INITIAL (’ RECOVERY? (Y/N)’); 

/* SET STACK POINTER X*/ 

DE=( TOP]; 

SP=(HL=(SYSSSTACK] + DE); 

/* CLEAR PERIPHERAL INTERRUPTS */ 

{DISABLESTIMER] ; 

{ CLEARSCSSTS iNT] ; 

{ CLEARSPRNTSINT]; 

/*® CLEAR STATUS LINE ON ALL TERMINALS */ 

DO I=(A=0) BY I=C(A=I*+1) WHILE CA=I3; A::4) !ZERO; 

CALL ( CLEARSSTATUSSLINE] ; 

END; 

* READ SYCOR DIRECTORY INTO MEMORY x/ 

CALL READSDIRECTORY; 

7*& DISPLAY IPLSMSG AT TERMINAL @ x*/ 

BC=15; DE=.IPLSMSG; HL=07T080H; 

CALL [MOVBUF] ; 

/* ENABLE INTERRUPTS SO TERMINAL NODULE MAY */ 

/* BE USED TO PROCESS REPLY TO IPLSHSG ~ 





ENABLE; 
[RESETSTIMER]? ; 
/* PROCESS OPERATGR’S REPLY x*/ 
WAIT: REPEAT; 
CALL [{ TERMINALSSTATUS] ; 
UNTIL (A::6) !ZERO; 
CALL [READSTERMINAL] ; 
I=A; 
IF (€A::@DH) ZERO GOTO TEST; 
REPEAT; 
CALL [ READSTERMINAL] ; 
UNTIL (A::ODH) ZERO; 


IF CA=I; Az: (B=’Y’)) ZERO 

\N CA: : (B=?79H)) ZERO 

THEN CALL RECGVER 

ELSE DO; 

IF (A: :(B=’N’)) !ZERO 

CA::(B=6EH)) !ZERO 

TREN 
GO; E=’?°; 
CALL ( WRITESTERMINAL] ; 
GOTO WAIT; 


DO; 
CALL INITIALIZE; 
A=@; CALL CCLEARSSTATUSSLINE] ; 
END; 
END; 
COTO [MONITOR] ; 
/* END MTSSIPL x7 
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A RR RRR RK RA RE ER RR KR OR AE ROR RRR RR AEE OR AE ROR EE OE ARK RR RR ROK RK EK EK 


7% SERVICE MODULE KS 
A RRKERRRRE RKB RRB RR ERK EK ER KEE REE EEK EK SK EKKO / 
i *K/ 
/* THIS MODULE PROVIDES THE INTERFACE BETWEEN THE *-/ 
7* USER AND ALL SYSTEM SERVICES. THESE SERVICES FALL x*/4 
/* GENERALLY INTO TWO CATEGORIES: 7 
fx */ 
7* (1) SYSTEM CALLS - THOSE FUNCTIONS REQUIRED TO XS 
oe ESTABLISH THE DESIRED VIRTUAL MACHINE KS 
A% ENVIRONMENT. KS 
Vie 7 
7% SERVICE CALLS - THOSE FUNCTIONS REQUIRED TO */ 
7#* ACCESS THE VIRTUAL DEVICES PROVIDED BY THE 7 
7 VIRTUAL MACHINE ENVIRONMENT. */ 
7% */ 
/* SYNTACTICALLY THE TWO TYPES OF PROCEDURE CALL ARE */ 
7* IDENTICAL, I.E. */ 
Jes VALUE MISC FID, PARM. SI 
7* EACH CALL TAKES TWO ARGUMENTS, FID IN REGISTER C */ 
7* AND PARM IN REGISTERS DE; AND RETURNS A VALUE KS 
/* IN THE A REGISTER. THE FORM OF THE ARGUMENTS */ 
/* THE SIDE EFFECTS ASSOCIATED WITH EACH DIFFERENT I 
/* FUNCTION ARE DISCUSSED IN MORE DETAIL IN THE MTS KS 
7/* USER’S MANUAL. NOTE HOWEVER THAT THE ARGUMENT REG- *~7 
/* ISTER ASSIGNMENTS CONFORM TO THE PL/“M CONVENTION KS 
/* FOR PASSING PARAMETERS. THE FOLLOWING TABLE SUM- 7 
7% MARIZES THE ARGUMENT OPTIONS AND CORRESPONDING KS 
7* RETURNED VALUES. 7 
Va 7 
7x NAME PARM VALUE */ 
S% ---- eeesteentonn lll w/ 
PR Se ee Sis cen 6 K/ 
wer ATTACH LIST ERROR */ 
1% DISPLAYSMSG ERROR NONE *K/ 
ax LOGIN LITst ERROR KS 
7% PROTECT LIsT ERROR x 
38 QUIT NONZ= NONE a 
Zak RESTRICT lst. ERROR 7 
Te SIZE SIZE ERROR 7 
AK UNPROTECT LIST ERROR - 7 
JR ws0erercec<e---— SERVICE CALLS --2---------- I 
7% 8 TERMINALSSTATUS NONE TRUE/FALSE oes 
Vee 9 READSTERMINAL NONE CHARACTER */ 
aX 10 WRITESTERMINAL CHARACTER NONE *% 
Joes 11 WRITESPRINTER CHARACTER ERROR KS 
a 12 SELECTSDRIVE DRIVE NR ERROR 7 
S%® 13 SETSDMA DMA ADDRESS ERROR */ 
ak 14 SETSTRACK TRACK NR NONE x7 
Ve 15 SETSSECTOR SECTOR NR ERROR 7, 
1% 16 READSFLOPPY NONE ERROR AA 
* irg WRITESFLOPPY NONE ERROR *K/ 
7% KS 
/* IN THIS TABLE THE ENTRY °’LIST* UNDER PARM INDICATESx 7 
/* THAT THE ACTUAL ARGUMENT IS THE ADDRESS OF A LIST x/ 
/* OF REQUIRED PARAMETERS. WHEN ’NONE’ APPEARS UNDER *x*/7 
“7* THE SAME HEADING, IT MEANS THAT THE PARM ARGUMENT x7 
7 IS NOT REQUIRED. *NONE”’ APPEARS UNDER VALUE THE *~ 
“* ERROR CODE RETURNED IS ALWAYS ZERO. THE ENTRY KS 
Pe INDICATES THAT AN ERROR CODE IS RETURNED. */ 
/* THESE CODES ARE DEFINED AS FOLLOWS: */ 
Sk KS 
Ak CODE ERROR KS 
1% ee a ee *K/ 
7 9 OPERATION SUCCESSFUL */ 
Jae 1 INVALID COMMAND KS 
7s 2 DISK NOT AVAILABLE KS 
S# 3 DISK IN USE */ 
7% 4 DISK NUMBER ERROR KS 
1k 3 KEY ERROR KS 
A 6 DRIVE LETTER ERROR a 
oR € Or BOUNDS */ 
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1% & HARDWARE ERROR */ 


7% 9 PROTECTION ERROR ee 
7k 19 DRIVE NOT AVAILABLE 7 
1% 7 
7* THE SERVICE MODULE IS DIVIDED INTO TEREE BASIC x7 
/* SUBMODULES: */ 
SR *K/ 
/* (1) USER INTERFACE Soy 
7% THIS SUBNGDULE CGNTAINS THE ENTRY POINT INTO x7 
Sk THE SERVICE MODULE FROM MCP AND USER PRO- KS 
7% GRAMS. IT IS HERE THAT THE SERVICE REQUEST KS 
7% IS INTERPRETED AND THE APPROPRIATE SERVICE KZ 
* ROUTINE CALLED FOR EXECUTION. */ 
Vans */ 
7*& €2) SYSTEM CALLS *K/S 
7% THIS SUBMODULE CONTAINS THE SERVICE ROUTINES x7 
rae AND SUPPORTING PROCEDURES WHICH CREATE OR */ 
Vie HODIFY THE USER’S VIRTUAL ENVIRONMENT. */ 
ok THESE ROUTINES ARE INVOKED BY MCP IN RESPONSE x*- 
Vie TO SYSTEM COMMANDS ENTERED AT A TERMINAL. */ 
Vim THEY MAY ALSO BE ACCESSED BY USER PROGRAMS <7 
wo DIRECTLY THROUGH THE USER INTERFACE SUBMNODULE. «7 
es 7 
7* €3) SERVICE CALLS / 
7 THIS SUBMODULE CONTAINS SERVICE ROUTINES AND x7 
7% SUPPORTING PROCEDURES WHICH ALLOW A USER 7 
Sx PROGRAM TO ACCESS A VIRTUAL TERMINAL OR a/ 
ae VIRTUAL FLOPPY DISK. 7 
SR i 


A RRR RR EK NES RE SIE FG OR OK SK OK OK OR SSK OK 6 TK OR SK OK OE OK SK OR MS OK RK EE IK ER ROR ROR KEK ZH 
A RAR TRE NER RRR SHER OS RE NE IS OK OK OK ER BS OK KOK OB OK SSSR RE ES NSS OR SRC NS OE RRR ROR KZ 


CO) MRTG TR RR oR AE RS AB NS OR AAS OS AS AR SG AS AS AS HS OES OE ROIS AIR OR IS AS 2K IR IS AS AR AS AS IR AIS OR AS AS RS OR IS ORAS OR RE AR RK 
SA RRAKERKRKKKKKRKEREK USER INTERFACE 8K RRRKKRKKKKKKRKKK/ 
SRR KBR RK ENA KK EHC ER CE NE OK HC HE OK EAE AE OE EAE BC OR OE NE CS OK EE IC KE OR CK / 


SRERKEREE REE EE TINTERMNODULE LINKAGE MACROS Sek KKK KKK, 


CINT ME TB N2B)] CM23B:=6606H)] (NB: =0300H] (TB: =1@C0H] 
CINT S2B S3B} [(S2B:=2200H] (S3B:=260600H] 
CMACRO MONITOR °C HEX MB +8FH]’ 1 

CMACRO INDEX 'CHEX M26 + 3HI'"] 

CMACRO ATTACH ‘°CHEX S2B + 14AHI’] 

[MACRO LOGIN °C HEX S2B + 208H]’] 

[MACRO PROTECT ’CHEX S2B + 25SCHI’ J 

CMACRO QUIT ’C HEX S2B + 261H])°] 

CMACRO BUMP °CHEX S2B + 293H]°] 

[MACRO RESTRICT ’CHEX S2B + 2C2H)]’ ] 
CMACRO SIZE ’C€ HEX S2B + 2CV7HI’] 

[MACRO UNPROTECT °C HEX S2B + 3IFHI]’] 
CMACRO WRITESPRINTER °C HEX SSB + OEDHI’] 
CMACRO SELECTSDRIVE °CHEX S3B + OF2HI'] 
{MACRO SETSDMA ’CHEX S3B + 15FHI'] 

[MACRO SETSTRACK ’C HEX SSB + 17CH]’"] 
[MACRO SETSSECTOR ’CHEX S3B + 186HI]’]J 
{MACRO READSFLOPPY ’°CHEX S3B + 1A0H]’] 
[MACRO WRITESFLOPPY ’C€ HEX S3B + 154H]’] 
[MACRO MTSSMSG °C HEX TB + 837H]’] 

[MACRO TERMINALSSTATUS ’{€ HEX TB + &SD2HI’] 
[MACRO READSTERMINAL °C HEX TB + 8DCH]’] 
CMACRO WRITESTERMINAL *C BEX TB + 93CH]°*1] 


SRARKKREEKRKEREEK GENERAL PURPOSE MACROS #2 RKRRRKEKKEKKS 


CINT TOP] {CTOP:=20] 
CMACRO INPUTSWAITING °OFFH’ J] 


PREECE ERK DECLARAT LONS KORE ROOK / 


DECLARE CMTSSEXTERNAL, MISSINTERNAL, EXIT, 
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MTS, TERMSBLOCK) LABEL; 
DECLARE SAVE DATA (9,060,909) ; 


SP RRL EEL KKK EK ENTRY POINT 24262k2RsKRee RR KKK EK KEKE 


INTERNALSMTS: 7x INTERNAL ENTRY POINT INTO SERVICE x*/7 
/* MODULE, I.E. ENTRY POINT FROM eae 
/* OTHER MTS ROUTINES */ 
SAVE(2)=(A=LOCK); /* SAVE LOCK VALUE */ 
PARM=(HL=DE); =/7* SAVE PARM LIST ADDRESS */ 
SAVE=( HL=0+SP) ; /* SAVE USER SP *-7 
SP=(HL=.SVCSSTACKC([ TOP])); 
IF ¢€A=<<C) [CY COTO MTS; 
A=(A=!C)+1; 7* CONVERT FID TO POSITIVE NR xv 
Pe CA? 3) 8CY THEN 
/*& INVALID COMMAND - ERROR 1 */ 
DO; ERROR=¢€ A=1); GOTO EXIT; END; 
H=0; L=A; 
DO CASE HL; 
/* 08 *7 DO; NOP; END; 
Sk -1 *7 DO; CALL [C READSTERMINAL] ; 
ERROR=A;3 
END; 
Gu =e 7) CALE LBUIE]; 
END; /“* CASE %*/ 
GOTO EXIT; 


100: /% ADJUST ERTERNAL ENTRY POINT LOCATION x*/7 
EXTERNALSHTS : 7% EATERNAL ENTRY POINT INTO SERVICE x7 
/* MODULE, I.E. ENTRY POINT FROM */ 
72 USER PROGRANS KZ 
DISABLE; 
SAVEC2)=(A=LOCK OFEH); /* SAVE LOCK VALUE x*/ 
LOCK=(A=A \ 01)3 /% LOCK OUT SWAPPING x«/ 


ENABLE; 
PARM=(HL=DE); /* SAVE PARM LIST ADDRESS */ 
SAVE= ( HL=9+SP) ; 7x SAVE USER SP x/ 


SP=CHL= .SVCSSTACK([ TOPI])); 


MTS: /* SYSTEM AND SERVICE ROUTINES x*/ 
IF ¢cA=C; A::18) !CY THEN 
7* INVALID COMMAND - ERROR 1 */ 
DO; ERROR=( A=1); GOTO EXIT; END; 
ERROR=(€A=90); /4* INITIALIZE RETURNED ERROR COLE x-/ 
H=0@; L=C; 
DO CASE HL; 
A RKRBRERKKEK SYSTEM CALLS %2kK KK oR Ne K HZ 


/* 0 */ CALL [ATTACH]; 

/e® 1 #7 CALL CMNTSSMSG]; 
7k 2 */ CALL (LOGIN; 

/* 3 *7 CALL CPROTECT]); 
4% & */ CALL [QUIT]: 

fk § *7 CALL [LRESTRICT] ; 
/* 6 */ CALL [SIZE]; 

S& FT */ CALL [C UNPROTECT] ; 


SRERBRKKEKK SERVICE CALLS *%*K KKK KKRRKRERS 
7k 8 */7 DO; CALL [ TERMINALSSTATUS] ; 
ERROR= A; 
END; 
Sk 9 *7 DO; CALL ( TERMINALSSTATUS]; 
IF CA::C INPUTSWAITING]) ZERO THEN 
DO; CALL [REAPSTERMINAL] ; 
ERROR= A; 
END 
ELSE GOTO TERMSBLOCK; 
END; 
/* 10 */7 CALL CWRITESTERMINAL] ; 
* Jl «7/7 CALL [WRITESPRINTER] ; 
* 12 *7 CALL CSELECTSDRIVE) ; 
7% 13 */ CALL [CSETSDMA]; 
/% 14 */7 CALL [SETSTRACK] ; 
Le 15 8 CALL [CSETSSECTOR] ; 
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7* 16 */ CALL ([ READSFLOPPY] ; 
7% VS */7 CALL CWRITESFLOPPY]; 
END; “* CASE */ 


EXIT: 7* COMMON EXIT POINT FOR INTERNAL AND EXTERNAL *7 
SP=(HL=SAVE); “* RESTORE USER SP */Z 
DISABLE; 
LOCK=( A=SAVE(2)); =/”* RESTORE LOCK VALUE x/ 
A=ERROR; 
ENABLE; 
RETURN ; 
/* END MTS */ 


TERMSBLOCK: 

ESTE ELE SL SL SS SL SLES SSS SSL PSS SSSSOSSSS SSS SSCS SS OSP ES SS OA 
/* THIS ROUTINE IS CALLED WHEN THE TASK CURRENTLY */ 
7% ALLOCATED THE CPU IS BLOCKED FOR TERMINAL 1/78. THE */7 
/*% ROUTINE STORES THE CURRENT MACHINE ENVIRONMENT IN x*/ 


/*x THE SWAP STACK AND TRANSFERS CCNTROL TO THE */ 
7% MONITOR FOR SELECTION OF THE NEXT READY TASK. */ 
7* CALLED BY: NTS */ 


A RRR RRR RK KK OR RK AG KR ER OB OK AB SR OR BR OK TK OK AR RR OR OR RR EK OK EK ER OK RK KR KKK Z 
7* SET BIT 5 IN TCTSSTATUS */ 
DE=.TCTSSTATUS; A=TASE; CALL CFC INDEX] ; 
MC HL)=(A=MC HL) N 20H); 
/% SAVE ENVIRONMENT x7 
SWAPSSTACK=(HL=SAVE); /* ONLY USER SP NEEDED x*/ 
COTO CNONITOR) ; 
7% END TERGOBLOCK */7 


EOF 

Au 

A HERI ESE SESS NRE SS SCS SESS SSS NASSP 
A RRKRKRKKKRREKERKEKREKKK SYSTEM CALLS KKRKKKRRKKKRKRKMCKKRKKK/ 
7) Be TRE HE AS BE ARO FE IE ES AR IR OR RS OR IR AIR AR oR RR ASE CR RR IR ROR 6 AROS RR OR OK OR RR OR OR OR ORR ROK OR OR RE RK 


J BREKEKRRKKKEK INTERMODULE LINKAGE MACROS ***x***KKRKK/ 


CINT TB MB M23] CMNOB:=6600H)] C(TB:=1600H] (CMB: =0300H] 
{MACRO MONITOR ‘°CHEX MB + &FH)° I 

[MACRO INDEX °CHEXA M2B + 3H]? ] 

CMACRO INDEXA2 ’C HEX M2B + ODHI’] 

CMACRO INDEX4 °*CHEX M2B + 16H]°] 

C[MNACRO INDEX8 °C HEX M2B + 24H]°] 

CMACRO GET ‘(HEX M2B + 38H] '] 

{MACRO MOVBUF ‘°CHEX M2B + 41401°i 

{MACRO MINISDISK ‘CHEX M2B + 54H] ’'] 

{MACRO SIZESMSG °C HEX TB + 864H]'°] 

[MACRO STATUSSMSG '(C HEX TB + 86CH]'] 

{MACRO CLEARSSTATUSSLINE ‘'COEX TB + &27H]'] 
{MACRO MTSSMSG ’CHEK TB + 837HI’] 


SRRARKURRERKKKKKK GCENERAL PURPOSE MACROS *®xk*xKKKRRKKKRRKK/S 


[MACRO WRITE ’2’] 
CMACRO HARDWARESERROR °8’ ] 


FRR RR ROR RR ROR KR KER EEK DECLARATIONS ®RERRKRRKRKKKRKKRKKKZ 
DECLARE PLIST DATA (1,0,0FFH, OFFH, OFFH, OFFH) ; 

SRRRRKERKE EERE ER UTILITY PROCEDURES 2Xok2ke RK KORE KKRRKKK SZ 
VALSDRIVE: PROCEDURE; 


A RRR ACK EK HR RK OE AE ER NEO IK OF OR EK OR OK ER AE RK AK SK OE ENE EK SK EC OK OK KH 
7x THIS PROCEDURE VALIDATES THE DRIVE NUMBER INPUT TO x*/ 


7* ANY SYSTEM CALL WHICH REQUIRES THAT PARAMETER. 7 
7* INPUT: A - DRIVE NUMBER TOC BE VALIDATED * 7 
7X OUTPUT: DRIVE - NUMBER OF FREE DRIVE FOUND */ 
1% ERROR - ERROR CODE 7 
7* CALLED BY: ATTACH a7 


ARR RRR TR OB OR RK RK ES OK OK OK OR HC OK 2K 2 IS OK OK OK AS OK OK OK ASK OK KE OR AR ER EK OK KKK Z 
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IF (A::@FFH) ZERO THEN /’* NO DRIVE SPECIFIED x/ 
DO; 7* SCAN DRIVE MAP FOR FREE DRIVE *- 
DECLARE L1 LABEL; 
DE=.TCTSDM; A=TASK; CALL [€ INDEX8]; 
B=8; 
REPEAT; 
IF (A=<MCHL)) !CcY GOTO LI; 
HL=BL+1; 
UNTIL (B= B-1) ZERO; 
7& NO DRIVE AVAILABLE - ERROR 10 x*/ 
ERROR=¢€ A=10)3; RETURN; 
Li: DRIVE=(A=8-B); /7* FREE DRIVE FOUND x*/ 
END 
ELSE IF (A::8) !cY THEN 
* DRIVE NR > ¢ - ERROR 6 x«/ 
DO; ERROR=(A=6); RETURN; END; 
END VALSDRIVE; 


VALSDISK: PROCEDURE; 


A ROR RR UAE RE BG KE ENS OK EK OE TB OKO BK OK ARK OK OK OK EK ORK OK OK OR KOK OK EE OR OK OK RR KS 


7% 
1% 
SR 
% 
1% 
eS 


THIS PROCEDURE VALIDATES THE DISK NUMBER INPUT TO 
ANY SYSTEM CALL WHICH REQUIRES TUAT PARAMETER. 
INPUT: A - DISK NUMBER TO BE VALIDATED 
OUTPUT: DISK - NUMBER OF FREE DISK FOUND 

ERROR - ERROR CODE 
CALLED BY: ATTACH 


SKK RK AK ZH 


a/ 
*/ 
/ 
*/ 
*/ 
<7, 


A RRA RK RE RS SSR ES ROK iS OK OR ROK EK EK OR KO OR OR OR ER OR OK ROK SEE EK OR OK RR ZH 


IFCA::OFFH) ZERO THEN 7x NO DISK SPECIFIED *, 
DO; 7x SCAN DISK MAP FOR FREE DISK */ 
DECLARE L2 LABEL; 
HL=.DiITSFLAG; B=92; 


Rt AT 
IF (A=>MCHL)) CY /* DISK AVAILABLE */ 
(A=>A) !CY 7* NOT IN USE */ 
(A=>A) ICY 7 NOT PROTECTED *%/ 
CA=7 A) (CY 7* NOT RESTRICTED */ 


THEN GOTO L2 
A= Be 
UNTIL (B=B-1) ZERO; 
/* NO DISK AVAILABLE - ERROR 2 X*/7 
ERROR=(A=2}; RETURN; 
L2: DISK=(A=32-B); /* FREE DISK FOUND x*/ 
END 
ELSE IF (A::32) !cY THEN 
“7* DISK WR > 31 - ERROR 4 */ 
DO; ERROR=(A=4); RETURN; END 
ELSE 


DO; “* SEE IF SPECIFIED DISK AVAILABLE x/ 


DE=.DMTSFLAG; A=DISK; CALL ( INDEX]; 

IF (A=>HM(C HL)? !cyY THEN 
/* DISK NOT AVAILABLE - ERROR 2 *-/ 
DO; ERROR=(A=2); RETURN; END; 

IF (A=>A) CY THEN 
7* DISK IN USE - ERROR O */ 
DO; ERROR=( A=3); RETURN; END; 

END; 

END VALSPISK; 


VALSKEY: PROCEDURE; 
A RRR RR ARR RRR ACER RRR RK RE RK ORR OR OK ROK OK OK RE ROR OR ROK RK ME KK EZ 


7k 
aS 
“ws 
rs 
Sk 
SR 
eS 


THIS PROCEDURE COMPARES THE KEY INPUT AS A SYSTEM 
CALL PARANETER WITH THAT ASSOCIATED WITH A SPECI- 
FIED VIRTUAL DISK FILE. 


INPUT: PARM - VARIABLE HOLDING ADDRESS OF PARM KEY 


DISK - VIRTUAL DISK FILE NUMBER 
OUTPUT: ERROR - ERROR CODE 
CALLED BY: ATTACH 


KZ 
*K/ 
*/ 
a 
*Z 
a 
* 7 


A RM RRR ERK AR OR EK ER I ASS HS OK OR OR OO TK OE KE OK EG OK OK OK KOK OK OK OK OR OR SEK NE OK AK OK IS OK OZ 


DE=.DMNTSKEY; A=DISK; CALL ( INDEX4]; 

DE=HL; HL=PARM; 

DO B=6 BY BE=Btt WHILE (A=4; A::B) !ZERO; 
IF (CA=MCDE); A::MCHL)) ZERO 
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N CIF €A::20H) ZERO (A=MCHL)-OFFH) ZERO 
THEN CY=! ELSE CY=90) CY 
THEN /* CHAR MATCH */ 
DO; 
DE=DE+1; HL=HL+1; 
END 
ELSE 7* KEY ERROR —- ERROR S *7 
DO; ERRCR=(A=5); RETURN; END; 
END; “%* WHILE */ 
/* KEYS MATCH *k/ 
END VALSKEY; 


CLEARSFLAG: PROCEDURE; 
A RRR RRR RR RR RR KR IR SE ARK ROKK EK RO KR OR ICR EE OK SE OR IR IEE / 
7* THIS PROCEDURE RESETS THE IN USE BIT (BIT 1) IN */ 


7/* THE DMTSFLAG FOR A SPECIFIED VIRTUAL DISK. KS 
7* INPUT: B - DISK NUMBER *7 
/%*% CALLED BY: ATTACH, LOGIN, CLEARSDM */ 


SHR RRR KR KEK A RS RR OR NEO ICR ENE EO OK OK ARR OK SK EK OR OR OR SER KZ 
DE=.DMNTSFLAG; A=B IFH; CALL C INDEX); 
MCHLI=CA=MCHL) OFDHED ; 
END CLEARSFLAG; 


CLEARSDM: PROCEDURE: 
A RRR EK RK SOR RR EE ER SK OR OK TOE OR TS OR SIE SOK TS NE OK TS OE OR IE KR SK NOOR EOE NS HE EOS OE OE OR OK 2S OK 


7s THIS PROCEDURE RESETS ALL ENTRIES IN THE TCTSDM i 
7* ASSOCIATED WITH THE CURRENT VALUE OF TASK. a 
* CALLED BY: LOGIN, QUIT KZ 


A REAR EK HR IS OR IR KH OR KS HE SST BIS ER A OH OR KK OR SOR OE IE OR RE OK KZ 

DE=.TCTSDI; A=TASK; CALL C INDEXES] ; 
MC HL) =O0COH; C=7; 
REPEATS 

HL=NL+ 1; 

B=M( HL); M(HL)=6; 

IF (A=<B) CY (A=<A) !CY THEN 

CALL CLEARSFLAG; 

UNTIL (C=C-1) ZERO: 
END CLEARSDM; 


WRITESBUF: PROCEDURE; 
ARR RAR RR KARR RR OK OR RAE OK ASK OR RR SK RR RR EK MER ROR KR RRR NS OR EE OK OK RK OR OR OK KOK 7 
7* THIS PROCEDURE CHECKS THE MODIFICATION BIT IN */ 
7* VDCSDRIVE TO DETERMINE IF TiH& CONTENTS OF MDBUF KL 
7* HAVE BEEN ALTERED. IF SO, THE BUFFER IS WRITTEN TO «7 
/* THE MINI-DISK AND THE MOD BIT IS RESET. */ 
7* CALLED BY: QUIT, MAP, LOGIN *S 
A RRR HER RAB EK OR EE AS AER SS TK ASS OK OR AE OK RE OR Sa OE OR AS OK TRS OK OR RO OR RR KR A SRR RE OR OR KK Z 
If CA=<VBDCSDRIVE) !CY RETURN; 
BC= ( RL=MNSAD); DE=.MDBUF; 
L=(C WRITE}; CALL (NINISDISK]; 
IF (A::0) !ZERO THEN 
7* HARDWARE ERROR - ERROR & */ 
DO; ERROR=CA=&); RETURN; END; 
VDCSDRIVE=(A=VDCSDRIVE T7FH); 
END WRITESBUF; 


SP RARRKRKARKKRERKEKKKKK SYSTEM ROUTINES **®RRKRKRKEKKKKKKRRK 
ATTACH: PROCEDURE; 


A RR RARE RRR ER RRR OR RR RR ER RR OR RR ROK OK CK AOR OR RR OR OR ROR OR ROR ROK ROR OK KK Z 
7% SIMULATE THE PHYSICAL OPERATION GF LOADING DISK */ 


7* <DISK NR> INTO DRIVE <DRIVE LTR. */ 
7* ARGUMENTS: 47 
/* €1) FID = 9 ba 
“7* (2) PARM = BASE ADDRESS GF PARAMETER LIST 7 
GES BYTE 8: DRIVE NUMBER (983-7) 7, 
Ves BYTE 1: DISK NUMBER (0-31) */ 

* BYTES 2-5: PROTECTION KEY (90-4 CHARS) 7 
/* VALUE: ERROR CODE ad 


SRR EIEN ET EC EK EE IK AEE OK AE OK ORK OE OR CK SE SION OK OR OOK EK OR OE OK OR RENEE / 
BC=(HL=PARM) ; DRIVE=( A=M(BC)) ; 
“* VALIDATE DRIVE NR */ 


179 





CALL VALSDRIVE; IF (A=ERROR N A) !ZERO RETURN; 
HL=PARM+1; DISK=(€ A=MCHL)); 

7* VALIDATE DISK NR x/ 

CALL VALSDISK; IF (A=ERROR \ A) !ZERO RETURN; 
DE=.DMTSFLAG; A=DISK; CALL CE INDEX] ; 


IF (A=MCHL) O45) !ZERO THEN /7* DISK PROTECTED *7 


DO; 7* VALIDATE KEY x*/ 
PARM= ( HL=PARII+1,+1); CALL VALSKEY; 
IF (A=ERROR \ A) !ZERO THEN 

DO; /7* MAY WANT READ ONLY */ 


DE=.DMTSFLAG; A=DISK; CALL [ INDEX]; BC=HL; 


IF (A=HCHL) O8H) ZERO 
7* DISK NOT RESTRICTED *~7 
\ (CHL=PARM; A=MCHL); A::®FFH) !ZERO 
/%*% KEY PARM NON-BLANK x7 
THEN RETURN /% ERROR VALID x*/7 
ELSE 
DO; 7x SET UP READ ONLY */ 
MC BC) =(A=MC( BC) \ @2H); 
/* SET DMNTSFLAG BIT 1 */ 
DISK=CA=DISK N 4048); 
/* SET TCTSDM BIT 6 x*7 
ERROR= ( A=@) ; 
/%& CLEAR ERROR */ 
END: 
END; 
END; 
/* MODIFY DNTSFLAG */7 
PE= .DMTSFLAG; A=DISK iFH: CALL [ INDEN]; 
M( HL) =CA=MNC AL) NN G2H): 7% SET DMTSFLAG BIT 1 */ 
7* MODIFY TCTSDOM *«~ 
DE=.TCTSDM; A=FASK; CALL C INDEXS8] ; 
DE=HL; A=DRIVE; CALL [ INDEX]; 
B=M(C HL) ; 
MC HU) =CA=DISK N 80H); /* SET TCTSDM BIT T «7 
/* RESET OLD DISK’S IN USE BIT */ 
IF (A=B 46086) ZERO CALL CLEARSFLAGE; 
/% DISPLAY STATUS MSG x*/7 
B=(A=DRIVE); C=(A=DISK IFH); 
IF CA=DISK 401) !:!ZERO THEN Af72ll ELSE A=" °; 
CALL [STATUSSMSG] ; 
END ATTACH; 


LOGIN: PROCEDURE; 
A RRR KARE ERK KBE BRK RRR RK RK EK IEE OE OR AR RR IK OK ICR KZ 


A 
A 
is 
7 & 
“x 
xk 
A* 
A* 
AR 
A* 
7% 
SR 
A 


THIS SYSTEM CALL NOTIFIES MTS THAT THE REQUESTING 

TERMINAL IS NOW ACTIVE, AND SIMULATES THE PHYSICAL 
COLD-START BOOTSTRAP OPERATION. THE BOOTSTRAP LOAD 
TAKES PLACE rROM VIRTUAL DRIVE A. THE VIRTUAL DISK 
ATTACHED TO THIS DRIVE MAY BE SPECIFIED IN THE 


PARAMETER LIST, OR DISKO WILL BE ASSUMMED AS THE 
DEFAULT. 
ARGUMENTS: 
(1) FID = 2 
(2) PARM = BASE ADDRESS OF PARAMETER LIST 
BYTE 90: DISK NUMBER (9-31) 
BYTES 1{~4: PROTECTION KEY (0-4 CHARS) 
VALUE: ERROR CODE 


KS 
*K/ 
i 
mH 
*K/ 
*/ 
*K/ 
7 
KS 
*/ 
* 7 
*K/ 
*K/ 


ARR BR RR EK ER OK KR NS TIS OK OK ERG OK OE IE OR HE OS OR IK AS OHS OS BIS OE OK SSO OK BE NG OK AE BIE KE NCE ROR KK Z 


/* WRITE MINI-DISK BUFFER IF NECESSARY x 

CALL WRITESBUF; 

IF (A=ERROR \ A) !ZERO RETURN; 

7* RE-INITIALIZE TCT x7 

CALL CLEARSDM; 

DE=.TCTSSIZE; A=TASK;. CALL ({ INDEN]; 

MC HL) =S32; v* SIZE = 16K x*/ 

HL= BC+ ( DE=.TCTSSTATUS) ; 

MCHLJI=1; /* SET BIT O xv 

/* PROCESS DISK PARAMETER */ 

If (HL=PARM; A=MCHL); A::@FFH) !ZERO THEN 
DO; /7* DISK SPECIFIED */ 
BC=5; DE=HL; HL=.PLIST(1); 
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CALL {MOVBUF]; PARM=( HL=.PLIST) ; 
CALL ATTACH; 
IF t(A=ERROR \ A) !ZERO RETURN; 
END 

ELSE /* DISPLAY DEFAULT STATUS MSG */ 
DO; 
A=72H; BC=90; 
CALL LSTATUSSMSG] ; 
END; 

“7* DISPLAY SIZE NSG */ 

A=16; CALL (SIZESMSG] ; 

END LOGIN; 


PROTECT: PROCEDURE; 
SRRRKAR KAR HE RK MK ER ERK ROR AK IR IG KE IR OE NE EK SK AE RE HE BS NC OK I KZ 
/* THIS SYSTEM CALL ADDS THE READ/WRITE PROTECTION */ 


/* ATTRIBUTE TO A SPECIFIED VIRTUAL DISK FILE. 7 
/* ARGUMENTS: */ 
7* (1) FID = 3 */ 
7* €2) PARM = BASE ADDRESS OF PARAMETER LIST */ 
1 BYTE 9: DISK NUMBER (0-31) on 
ans BYTES !-4: PROTECTIGN KEY (0-4 CHARS) */ 
/* VALUE: ERROR CODE *K/ 
eee ne he fetes Pe ek oe ok eo ee ee te he ee ae ee Ke KEK RE RE 
NOP; 


END PROTECT; 


QUIT: PROCEDURE; 
A RRR RAE SK IE TK SS RK RK SE SR ER KR AS OK NS SERS OK IS OR OK OR OR OK OR KOR OK EK HER ROR SOK KZ 
7x THIS SYSTEM CALL NOTIFIES NYS THAT THE REQUESTING *-~ 


/* TERMINAL IS NO LONGER ACTIVE. K/ 
7x ARGUMENTS: we 
Yk €1) FID = 4 7 
/7* (2) PARM = NONE */ 
/* VALUE: NONE KS 


PRR RRA ATE ERA EER EE EE EC EE OE OE IK I AE OE IE AR ARR AE RE AE RR ERE AE EE EE / 
/%* WRITE MINI-DISK BUFFER IF NECESSARY x*/ 
CALL WRITESBUF ; 
IF (A=ERROR \ A) !ZERO THEN 
DO; E=€ HARDWARESERROR]; CALL (MTSSMSG1]; END; 
/%* CLEAR STATUS LINE */ 
A=TASK; CALL ([CLEARSSTATUSSLINE]; 
/* CLEAR TCT ¥/ 
CALL CLEARSDM; 
DE=.TCTSSIZE; A=TASK; CALL { INDEX]; 
M( HL) #32; 7* SIZE = 16K */7 
HL=BC+( DE=.TCTSSTATUS) ; 
M( HL) =0; /* RESET STATUS BYTE */ 
GOTO CMONITOR] ; 
END QUIT; 


BUMP: PROCEDURE; 
CALL WRITESBUF; 
IF (CA=ERROR \ A) 1!ZERO THEN 
DO; E=(€ HARDWARESERRORI]; CALL {MTSSMSG]; END; 
A=TASK; CALL [CLEARSSTATUSSLINE] ; 
CALL CLEARSDM; 
DE=.TCTSSIZE; A=TASK; CALL [{ INDEX] ; 
M( HL) =32; 
HL= BC+( DE=.TCTSSTATUS) ; 
MC HL) =60; 
END BUMP; 


RESTRICT: PROCEDURE; 

SRR AER RK RK KK KA RK KO RO OK SK OK OR SKE SK OK OR REE EER ORK / 
7* THIS SYSTEM CALL ADDS THE READ RESTRICTION ATTRI- x*/ 
“7x BUTE TO A SPECIFIED PROTECTED VIRTUAL DISK FILE. */ 


7* ARGUMENTS: */ 

7* (1) FID = 5 Aaa 

/* (2) PARM = BASE ADDRESS OF PARAMETER LIST *K/ 

A * BYTE @®: DISK NUMBER (0-31) KS 

A* BYTES 1-4: PROTECTION KEY (0-4 CHARS) KS 
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/* VALUE: ERROR CODE */ 
RRR ER ERR RARE RAB I ER EAR I HE AR IE AE BS TIS AR ER EE A A IS IRE IR RE AE SRE HE AR IR SE OE 
NOP; 
END RESTRICT; 


SIZE: PROCEDURE; 
A RRR RK RRR BKK KK KK HE EE EK RRR ERE KE RK / 


“7* THIS SYSTEM CALL SETS THE SIZE OF THE USER’S SWAP x/ 


/* IMAGE. */ 
/* ARGUMENTS: 7 
7x  €1) FID = 6 a 
/%* €2) PARM = REQUESTED SIZE IN KILOBYTES eg 
/* VALUE: ERROR CODE = 


A RMR RE KR KG RK OK 28 HE OK OK EK KE EO NST NE OK OK SOK KK NE SR OK OG OK OK OR AS SO OK RAE SOR OR EK ROK KZ 
/* COMPARE REQUESTED SIZE WITH MAX SIZE x/ 
IF (CA=PARM(®); A::49) {CY THEN 

“x OUT OF BOUNDS - ERROR 7 */ 
DO; ERROR=( A=7); RETURN; END; 
“* COMPARE REQUESTED SIZE WITH SWAP FILE SIZE *-7 
DE=.TCTSBOE; A=TASK; CALL [ INDEX2] ; 
CALL [GET]; B=0: C=(A=<< PARM(Q)); 
HL=BC+DE; STACK=HL; /“x* SAVE SUM */ 
DE= .TCTSEOE; A=TASE; CALL [ INDEX2]; 
CALL (GET]; BC=BC+1; 
DE=STACK; 7“ RESTORE SUM -*/ 
a= A= be 
IF MINUS THEN 
7x OUT OF BOUNDS -—- ERROR VT */ 
DO; ERROR=(A=7); RETURN; END; 
/* DISPLAY SIZE MSG */ 
A=PARN( 9); CALL [SIZESMSG]: 
7% UPDATE VTCr «7 
DE=.TCTSSIZE; A=TASK; CALL [INDEX]; 
MC HL) =( A=<< PARM(@) ); 
END SIZE; 


UNPROTECT: PROCEDURE; 

SRR RRA RR AKER RRR RK BRR ERR EN RK AE OR A EK ORR RE EEK / 
7x THIS SYSTEM CALL DELETES TITE READ RESTRICTION AND */ 
7% READ/WRITE PROTECTION ATTRIBUTES FROM A SPECIFIED */ 


/* VIRTUAL DISK FILE. KZ 
/* ARGUMENTS: KZ 
7% (1) FID = 7? */ 
“/* (2) PARM = BASE ADDRESS OF PARAMETER LIST *K/ 
1% BYTE 98: DISK NUMBER (80-31) 7 
7% BYTES 1-4: PROTECTION KEY (0-4 CHARS) 7 
/* VALUE: ERROR CODE 7 
A RMR KR KE ERO MOR EK EEK EK EEK EK EE HOSE EK EEE EEE / 
NOP; 


END UNPROTECT; 


EOF 

A RRR RRR NRK HK KK OK ES OOK SK OK AE OK KE RK OK OG EO KG EE AK IEE KR OK KI / 
A RRR RB KKK RRR KEK SERVICE CALLS kK KKRRKKKKKRKRRAKR KS 
Pasote cle Rahs ORs AC ofS 24S OAS 2S 26s OFS DHS 4S SAS AR ONG che ofS ARS 2S OES IS AS OES AS OAS OF AS IS 28 HAC 0S OIC HHS IS HC SIE SIC TRACE CR IE NCE ROR CaS 7 


A BRRKRKRERKKKEK IT NTERMODULE LINKAGE MACROS *%xxKRKKKKRS, 


CINT M2B S2B] [M2B:=0600H] [S2B:=2200H) 
[MACRO INDEX °C HEX M2B + 3H]’) 

{MACRO INDEX2 °C HEX M235 + ODH}’] 

CMACRO INDESS °C HEX M2B + 2471°] 

{MACRO GET °C HEX M2B + 38H] '] 

(MACRO MOVBUY ’C HEX M2B + 41H)°] 

(MACRO MINISDISK ’CHEX M2B + 34H] °) 


J RRR RA RAE RK ERE GENERAL PURPOSE MACROS X28 eR RKEKRRRRZ 


{MACRO READ °’1°] 
[MACRO WRITE ’°2’] 
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SPREE REE RKKRERE KK UTILITY PROCEDURES **XeRKKRRRKKKA EEK 


READSBUF: PROCEDURE; 
S RRR RRR RRR ER KERR RR EERE EER RR I ER RR KZ 
/* THIS PROCEDURE READS A SPECIFIED MINI-DISK SECTOR */ 


“7* INTO MDBUF AND UPDATES MDSAD. */ 
“* INPUT: BE - MINI-DISK SECTOR NUMBER *K/ 
/* OUTPUT: ERROR - ERROR CODE 7 
7*% CALLED BY: MAP te 7 


SRR RARE KEKE RRR RRR ER REE RE ROK NER A LEK RR KO ORE KE IK 
‘DE=.MDBUF; L=[ READ]; CALL (CMINISDISK]; 
IF (A::0) !ZERO THEN 
/* HARDWARE ERROR —- ERROR & %/ 
DO; ERROR=(A=8); RETURN; END; 
MDSAD=( HL=BC) ; 
END READSBUF; 


WRITESBUF: PROCEDURE; 
A RRR RE RRR RE NRK RR EK ER IE EK KR RR RE RR ER EEE 


7/* THIS PROCEDURE CHECKS THE MODIFICATION BIT IN */ 
7* VDCSDRIVE TO DETERMINE IF THE CONTENTS OF MDBUF */ 
7* HAVE BEEN ALTERED. IF SO, THE BUFFER IS WRITTEN TO x*/ 
7* THE MINI-DISK AND THE MOD BIT IS RESET. 7 
/* CALLED BY: QUIT, MAP, LOCIN k/ 


S RRR KR RRR RR RRR EK IR MEE OK ES EK OK OK ES OR IE IR OR EZ 
IF €A=<VDCSDRIVE) {CY RETURN; 
BC=(HL=MDSAD) ; DE=.MDBUF; 
L=C WRITE); CALL (NINISDISK] ; 
IF €A::0) !ZERO THEN 
7% HARDWARE ERROR - ERROR & %/7 
DO; ERROR=(A=68); RETURN; END; 
VDESDRIVE=(A=VDCSDRIVE T?FH) ; 
END WRITESDUF ; 


MAP: PROCEDURE; 

ee eerste hee ee eee noe shee hoe ok KORE ac haa eae hen eR RT 
/* THIS PROCEDURE CALCULATES THE RELATIVE OFFSET OF A */7 
7* SPECIFIED VIRTUAL FLOPPY DISK SECTOR IN THE MINI- xv 
“/* DISK FILE AND THE BASE ADDRESS OF THAT SECTOR IN ave 
7 THE MINI-DISK BUYFER AFTER THE FILE IS READ. THEN *7 
/* IT CALCULATES THE ACTUAL HINI-DISK SECTOR NUMBER *K/ 
“* CONTAINING THE ADDRESSED FLOPPY DISK SECTOR, AND */ 
“* COMPARES IT WITH THE CURRENT CONTENTS OF MDBUF. IF *-7 
“* THE TWO ARE NOT EQUAL, THE OLD BUFFER IS WRITTEN KS 
/* TO THE MINI~DISK AND THE NEWLY CALCULATED SECTOR *K/ 
7x NUMBER READ IN TO REFILL THE BUFFER. A COMPARISON x/ 
7* IS ALSO MADE BETWEEN THE CALCULATED MINI-DISK * 
7/* SECTOR NUMBER AND THE FILE'S EGE VALUE TO ENSURE KH 
7* THAT THE SPECIFIED VIRTUAL DISK SECTOR ADDRESS IS */ 


“* WITHIN THE BOUNDS OF THE FILE. */ 
7% INPUT: VDCSTRACK - FLOPPY DISK TRACK NUMBER */ 
7X VDCSSECTOR - FLOPPY DISK SECTOR NUMBER *S 
7* OUTPUT: BC = 128 = FLOPPY DISK SECTOR SIZE 7 
7% HL = BASE ADDRESS OF FLOPPY DISK SECTOR 5 
a. IN BUFFER */ 
7% CALLED BY: READSFLOPPY, WRITESFLOPPY */ 


A RB BHR KR RR OR RRR EK SK OK OR OS HE OR OR AE OK SK EK KBE OK OK OK OK OK KR OK OR OK OR ER OR KE KR OR KK 
DECLARE BUFAD DATA (6,90); 
DECLARE SECNR DATA (6,9); 
/%* MULTIPLY TRACK NUMBER BY 26 */ 
D= ( A= VDCSTRACK) ; 
E=( A= VDCSSECTOR) ; 
B=0; C=26; H=8; 
C=(A=>C) ; 
REPEAT; 
IF CY THEN A=B+D; 
CY=90; B=(A=>A); 
C=(€ A=>C); 
UNTIL €H=H-1) ZERO; “7% BC = 26 * TRACK X*/ 
7% ADD SECTOR NUMBER TO 26 «* TRACK */ 
C=(A=C+E); B=( A=Bt+9) ; 
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7* BC = 26 * TRACK + SECTOR *7 
7* DIVIDE 26 *« TRACK + SECTOR BY 4 */ 

DE=0; 
CY=@; B=(CA=>B); C=CA=>C); E=CA=>E); 
CY=0@; B=(A=>B); C=C A=>C); D=CA=<D); 

/* BC = BO / 4 *«/ 

7* DE = RELATIVE BUFFER ADDRESS x«/ 
BUFAD=(HL=DE); /7%* SAVE RELATIVE BUFFER ADDRESS x*/ 
7%* CALCULATE AND SAVE NEW MINI-DISK SECTOR NR x7 
SECNR=( HL=VDCSBOE + BC); 

7* COMPARE NEW SECTOR NR WITH VDCSEOE */7 
A= VDCSEOE(1)-L; A=VBCSEOE(0)--H; 
I¥ MINUS THEN 
/* OUT OF BOUNDS - ERROR 7 *7 
DO; ERROR=(A=7); RETURN; END; 
7k COMPARE NEW SECTOR NR WITH MDSAD *7 
IF (A=MDSAD(0); A::H) !ZERO THEN 
CY=9@ 
ELSE IF (A=MDSAD(C 1); A::L) !ZERO THEN 
CY=0 
ELSE CY=1; 
* WRITE OLD SECTOR AND READ NEW IF NECESSARY x7 
Ir !CY THEN 
DO; /7* NOT EQUAL x*/7 
CALL WRITESBUF:; 
Ir (CA=ERROR N AD YZERO RETURN; 
BC=( HL=SECNR) ; CALL READSBUF; 
IF (A=ERROR \N A) !ZERO RETURN; 
END; 
/* SET UP REGISTERS FOR RETURN */7 
BC=123; DE=( HL=BUFAD) ; 
END MAP; 


S MORK RRREMEKRRKERKKKE SERVICE ROUTINES oko keke xesk tek oe eck Roe /, 


WRITESPRINTER: PROCEDURE; 
S RRR RAR RE RR RR KR RK RB RR EE OE ENE KE OR RR KOR ROK A NSE KK 


7* THIS SERVICE CALL IS CALLED TO WRITE A SINGLE KS 
7* CHARACTER TO THE SERIAL PRINTER. */ 
7* ARGUMENTS: */ 
7x (1) FID = 11 KS 
7x (2) PARM = ASCII CHARACTER K/ 
/7* VALUE: ERROR CODE *K/ 
S RRR RRR RAK RRR TER RR REE RK RR RAR RE EER OR ER EE RE RR OK IK KZ 
NOP ; 


END WRITESPRINTER; 


SELECTSDRIVE: PROCEDURE; 
SRR RR AREER ER OK AR RK CE OK HE SIE SOK SK OK NCO OK IC KOR IER OO OR OR KR RSE NE / 
7* THIS SERVICE CALL SELECTS THE VIRTUAL FLOPPY DISK x/ 


7* DRIVE TO BE USED FOR SUBSEQUENT FLOPPY DISK KS 
/*® ACCESSES. *KS 
7* ARGUMENTS: *S 
7* (1) FID = 12 *S 
7* (2) PARM = DRIVE NUMBER (0-7) *7 
7* VALUE: ERROR CODE */ 


A RRR KK RE OE NS EO SEE OK HE SIC ICSE HERE ESE SE SK SOK EES OE EK ESR OK OR EEK / 
DRIVE=( A= PARM( 1) ) ; 
/* VALIDATE DRIVE NUMBER */ 
IF (A::8) !CyY THEN 
/* DRIVE NR > 7 -—- ERROR 6 x7 
DO; ERROR=(A=6); RETURN; END; 
/* VALIDATE THAT DRIVE IN USE x*/ 
DE=.TCTSDM; A=TASK; CALL [C INDEXS]; 
DE=HL; A=DRIVE; CALL [ INDEN] ; 
IF (A=<MCHL)) ?%CY THEN 
7* DRIVE NOT AVAIL ~ ERROR 10 */7 
DO; ERROR=(A=10); RETURN; END; 
7* UPDATE VDC BLOCK */ 
DISK=( A= MC HL) 1FH) ; 
IF (A=MCHLD 4080) !ZERO THEN /7* READ ONLY X%/ 
DRIVE=(A=DRIVE \ 4086); /”* SET BIT 6 */7 
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DE=.DMTSBOE; A=DISK; CALL [ INDEX2]; 
CALL [GET]; VDCSBOE=(¢ HL=BC) ; 
DE=.DMNTSEOE; A=DISK; CALL [C INDEX2] ; 
CALL CGET]; VDCSEOE=( HL=BC) ; 
VDCSDRIVE= ( A= DRIVE) ; 

END SELECTSDRIVE; 


SETSDMA: PROCEDURE; 

A MRR RK EE OK EEK TSI HS BR SS SHS OK OR Ae OR OR AS OK AOR RE OR TS OB TS SK OK OR OR EK KOR KOR IK OK KK ROR NER / 
7* THIS SERVICE CALL SETS TH= ADDRESS OF THE 128 BYTE */ 
7* DMA BUFFER TO BE USED IN SUBSEQUENT VIRTUAL FLOPPY */ 


7% DISK ACCESSES. 7 
/* ARGUMENTS: nS 
/* C1) FID = 13 KS 
/* (2) PARM = DMA ADDRESS KS 
“* VALUE: ERROR CODE */ 


A RRR RK ASR RR ARK RR KK BE AK NEO OER BK OK IK KK OR NE BE OI KOK EB AK Z 
A=PARMC1)-0; A=PARM(0)--40H; 
IF MINUS THEN 
7% OUT OF BOUNDS - ERROR 7 */7 
DO; ERROR=(A=7); RETURN; END; 
VDCSDMA= CHL=PARID ; 
END SETSDMA; 


SETSTRACK: PRCCEDURE; 
ARRIETA ROR SKK NOE NE EME SEER FR IS TE OR OE OR ER A ME OR SIS HK EE SN / 


7x THIS SERVICE CALL SETS THE TRACKS NUMBER TOC BE USED *7 


/* IN SUBSEGCUENT VIRTUAL FLOPPY DISK ACCESSES. */ 
/* ARGUMENTS: rd 
“* (i) FID = 14 7 
/* €2) PARM = TRACK NUMB&R 7 
* VALUE: NONE Pd 


JAS RR RAB RT OK FI SOR AR OR HET OS OR NE IS OS OE IS ISS IS IS EE OR OR DIR IC SAS OH ROR NS SI IS EE OS OR IS ISR OR IE 7 
VDCSTRACK=( A=PARIIC 1)); 
END SETSTRACK; 


SETSSECTOR: PROCEDURL; 
A RRR RR RR RC EB A NS EE SES SE I OR IS RE OR RE ER ISIE EK IR CEE RR OR EZ 


7k THIS SERVICE CALL SETS THE SECTOR NUMBER TO BE */ 
7/* USED IN SUBSEQUENT VIRTUAL FLOPPY DISK ACCESSES. a 
7* ARGUMENTS: KI 
A €1) FID = 13 */ 
7* (2) PARM = SECTOR NUMBER (1-26) 7 
/* VALUE: ERROR CODE */ 
A RR RRR RRR TR RRR SRK ES RR RE OR SOK KR OK OK EK ROR ROR OK ARK EK OR NS OK OK OR KZ 
A=PARIH( 1); 


IF (€A::27) !CY SN (€A::0) ZERO THEN 
/%* OUT OF BCUNDS ~- ERROR ¢ */ 
DO; ERROR=(CA=7); RETURN; END; 

VDCSSECTOR=A; 

END SETSSECTOR; 


READSFLOPPY: PROCEDURE; 

A RRR RRR RR TEC KR EE CK OE A AR EK A OE CCE EK EE OR EE AK OE EE EE OK 
7* THIS SERICE CALL SIMULATES READING FROM A FLOPPY ¥*/ 
/* DISK. THE VIRTUAL DISK SECTOR AND TRACK SPECIFIED */ 


/* IN THE VDC BLOCK IS READ FROM THE SPECIFIED 7, 
“/* VIRTUAL DRIVE INTO A 128 BYTE BUFFER IN THE USER’S */ 
7* SWAP AREA. SL 
/* ARGUMENTS: */ 
7* (1) FID =16 KS 
7* (2) PARM = NONE */ 
7% DRIVE, SECTOR, TRACK, AND DMA ADDRESS MUST *K/ 
4% HAVE BEEN PREVIGUSLY SET BY CALLS TO THE */ 
“x APPROPRIATE PROCEDURES. */ 
7*® VALUE: ERROR CODE 5 
A HRT REACH TR OO OK OK AE EK OK AG RC HS OC IE SE AC OE COR OK ME OK AK NE OE IE 3S OK OK EEE eZ 
CALL MAP; 


IF (CA=ERROR \ A) !ZERO RETURN; 
DE=HL; HL=VDCSDMA; CALL [NOVBUF]; 
END READSFLOPPY; 





WRITESFLOPPY: PROCEDURE; 

A RRA RR AER RR ER TER RRR RR OR OR ER OK OK OR OR KE RE KK Z 
7x THIS SERVICE CALL SIMULATES WRITING TO A FLOPPY */ 
7* DISK. A 128 BYTE BUFFER IN THE USER SWAP AREA IS */ 
7* WRITTEN TO THE VIRTUAL TRACK, SECTOR, AND DRIVE */ 


/* SPECIFIED IN THE VDC BLOCK. x/ 
/* ARGUMENTS: 7 
“* (1) FID = 17 x / 
7* €2) PARM ® NONE */ 
7% DRIVE, SECTOR, TRACK, AND DMA ADDRESS MUST K/ 
7% HAVE BEEN PREVIOUSLY SPECIFIED BY CALLS TO 7 
7% THE APPROPRIATE PROCEDURES. */ 
/* VALUE: ERROR CODE *7 
SRR KHON KR RK KK IK ICR EK EK EEK SO MEE SE ME OC HEE Se tee / 
CALL MAP; 


IF (A=ERROR \N A) !ZERO RETURN; 

STACK=HL; DE=(€ HL= VDCSDMA) ; 

HL=STACK; CALL (MOVBUF] ; 

VDCSDRIVE=(A=VPCSDRIVE \ 86H); 7* SET BIT 7 x7 
END WRITESFLOPPY; 


EOF 
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A RERERRNEKRKRERRRE RK ERR RR KR RK RRR RK EK EE EE EE EK EK / 
PRRKERKRKRRKKERK TERHINAL INTERFACE MODULE **kX*xX**XK*RX/ 
SRR KR RRR NERE ER REE SE SI SE EHC SE EAC OK EK NE OR OK EE EE EOE AEE / 


1% 
“& 
7* 
7 
* 
7% 
A 
7 
* 
7% 
7 
SR 
a 
“x 
7 
7 
rae 
1% 
“% 
7R 
1% 
AR 
co 
a 
7% 
7% 


st 


7m 


7 


*/ 

TERMINAL INTERFACE MODULE PROVIDES THE MTS *7 
INTERFACE WITH THE FOUR DISPLAY TERMINALS */ 
ATTACHED TO THE SYCOR 440 SYSTEM. THE MODULE IS x*/ 
SEPARATED INTO FIVE BASIC SUBMODULES. EACH */ 
SUBHMHODULE CONTAINS THE MACROS NECESSARY FOR */ 
LINKING WITHIN THE TERMINAL MODULE AND FOR */ 
EXTERNAL MTS LINKAGE. */ 
*S 

(1) DATA DECLARATIONS *K/ 


(2) 


(3) 


(4) 


(3) 


THIS SUBMODULE PROVIDES ALL DECLARATIONS OF x*/ 
THE DATA STRUCTURES UTILIZED BY TRE TERMINAL*/ 


MODULE. *x/ 
UTILITY PROCEDURES 4 
THIS SUBMODULE CONTAINS THE BASIC UTILITY */ 
PROCEDURES WHICH PROVIDE COMMON REGISTER */ 
MANIPULATION AND PROCESSING REQUIRED BY *K/ 
MANY PROCEDURES THROUGHOUT THE REMAINDER *h/ 
OF THE TERMINAL INTERFACE MODULE. */ 
* COMPARESPTRS * GETS INDEX */ 
* GETSVALUE * STORES VALUE */ 
* CONVERTSNUIBRSTOSASCI I */ 
* MOVESSYTES * SWAPSCURSOR */ 
TERMINAL INTERFACE PRIMITIVES */ 
THIS SUBNODULE CONTAINS THE PROCEDURES WHICHx/ 
PROVIDE THE BASIC TERMINAL INTERFACE *KS 
FUNCTIONS. KS 
* BLANKSDISPLAY * GETSDISPLAYSADDR x/ 
* CHECKSCURSOR * GETSTERMSSTATUS */ 
* SCROLLSDISPLAY * SENDSBEEP */ 
* SENDSCLICK * UPDATESCURSOR */ 
* GETSSTATUSSADDR KY 
KEY PROCESSING PROCEDURES */ 


THIS SUBMODULE CONTAINS THE PROCEDURES WHICH*~, 
PROVIDE THE BASIC TERMINAL INPUT PROCESSING. */ 
THEY ARE CALLED TO PROCESS EACH KEY ENTERED #7 
AT A TERMINAL. THEIR FUNCTIONS INCLUDE: */ 
CHECKING FOR AND CONVERTING LOWER TO UPPER x7 
CASE LETTERS IF REQUIRED; CHECKING FOR ANY x*/ 


KEY COMMANDS (WHICH INCLUDES ALL LINE */ 
EDITING); AND IF NOT A KEY COMMAND, *7 
DISPLAYING THE INPUT CHAR AT THE TERMINAL. x*/ 

* KEYSCOMMAND * TERMS INPUTSCNTL id 
TERHINAL INTERFACE SYSTEM FUNCTIONS */ 


THIS SUBMODULE CONTAINS THE PROCEDURES WHICH*/ 
PROVIDE THE PROCESSING REQUIRED TO INTERFACEx/ 


THE TEPMINAL WITH THE REST OF THE MTS */ 
MODULES. IT PROVIDES READING AND WRITING */ 
OF CHARACTERS FRON’TO THE TERMINALS; */ 


TERMINAL STATUS INFORMATION (E.G. WHETHER e/ 
THERE’S INPUT AVAILABLE OR NOT); AND DISPLAY*/ 
OF STATUS AND MTS MESSAGES ON THE TERMINAL x*/7 


STATUS LINE. OA 
* BLINKSCURSORS * CLEARSSTATUSSLINE *7 
* TERMINALSSTATUS * READSTERMINAL Ped 
* WRITESTERMINAL * STATUSSMSS 7 
x MTSSMNSG * SIZESNSG */ 


A) RR RRR RAS NE RK EE RS BIS OR AGE OK OK OK AE KE OK OB OR SOR ofS OS IK OE NC 29S HSS CES SS OR NE SE OE OG OR hE OK 
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ARR RR ERR RE KEK RE ERR RRR RR KR KR CER OK OR OR KR OK SOR OKK OK OK / 
PKKRRERRKKEKEKEK TERMINAL DISPLAY DESIGN %*%*KKKRRRRKKK/ 


1% *K/ 
A */ 
ia. GENERAL FORMAT OF EACH TERMINAL DISPLAY Pe 
7% */ 
a 3 */ 
JR me mn rn nn nr nr rr ene */ 
7k lO STATUS LINE 63! */ 
PK mmr rrr rere */ 
7 WASSSSSSOTSTS SSOP OOOPASTPOPOSATSA AS SOOT N 7 
PR mm ee RS 
/* 16 D 631 ed 
OR rn nt rn nn rns es orrr sesso r--- KS 
A 164 I 1271 */ 
SR rrr rrr rrr rr ere */ 
fx 1128 B S 1911 */ 
Fe lal lalate ee ete eeteteeenietenientententententenietetenteentetenetetetentetetenten a 
#* 1192 U r 295 | */7 
PR mr rr rr nner nr rrr nye 
* [256 F 1G, 3191 */ 
SK rrr */ 
1% {320 F A 383 | *K/ 
Neen */ 
aes 1384 EB Y 447 | *K/ 
PR mm ee ey 
Von 1448 R S111 */ 
PR meme a nn rere eo /7 
Vas *K/ 
i * = ed 
Pek STATUS LINE */ 
JR mmm a rrr eee Di 
7% 19 VFD 39140 MNS 47143 NsG 633 *K/ 
PR mn ee es 
A % WHERE KH 
7% VFD - VIRTUAL FLOPPY DISK STATUS DISPLAY; KS 
aes CONTAINS THE INFORMATION ASSOCIATED */ 
7* WITH THE CURRENT TERMINAL USER’S *K/ 
oe VIRTUAL FLOPPY DISK DRIVE AND DISK */ 
A #* NUMBER ASSIGNMENTS. (SEE STATUSSMSG 7 
7% PROC FOR DETAILS) *K/ 
A% MS - DISPLAY OF THE MEMORY SIZE THE USER */ 
at HAS REQUESTED. (SEE SIZESMSG PROC) */ 
ae 3 MSG - DISPLAY AREA FOR MTS MESSAGES WHICH a7 
k ARE DISPLAYED IN RESPONSE TO A = 
oR SYSTEM OR SERVICE CALL TO NTS. vd 
7* (SEE MTSSMNSG PROC) */ 
7% a7 
/* Wes 
A DISPLAY BUFFER KS 
PR a ee a a ee */ 
7% 7 
/* THE DISPLAY BUFFER IS VIEWED AS A SINGLE */ 


A 
A*® 
Ak 
7 
eS 
7% 
A 
7 
Ak 
7% 
7% 
Ak 
aS 
A * 
Ak 
SR 
7 
AK 
Ak 


BUFFER FROM © TO 512 BYTES IN LENGTH. THERE ARE x/ 
FOUR DISPLAY BUFFER POINTERS WHICH PROVIDE THE */ 
CONTROL OF INPUT FROM AND OUTPUT TO THE TERMINAL */ 


DISPLAY. THESE POINTERS ARE: CURRENTSLINE; */ 
CURSOR; NEXTSCHAR; AND ENDSIBUFF. KL 
EACH POINTER UTILIZES TWO BYTES CF STORAGE TO *“/ 
ACCOMMODATE A RANGE IN VALUE FROM 90 TO 512. 7 
IN ADDITION TO THESE POINTERS, THERE [IS A K/ 
TERMINAL STATUS BYTE, CALLED TERMSSTATUS, */ 
ASSOCIATED WITH EACH TERMINAL. IT IS SET TO 7 
ONE OF THREE VALUES: INPUTSWAITING; KS 
MISSCMDSREADY:; IBUFFSEMPTY. THESE ARE THE %/ 
PRINARY DATA STRUCTURES PROVIDING TERMINAL I70 ee 
CONTROL. KS 

*K A 
THE PRIMARY SYCOR HARDWARE CHARACTERISTIC WEICH *v7 
AFYTECTED THE MTS TERMINAL INTERFACE WAS THE = 34 
RELATIVELY SLOW MINI-DISK ACCESS TIMES. THIS HAS*/ 
A MAJOR [MPACT WHEN TRYING TO DESIGN AN */ 
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A 
AR 
7k 


7% 
AX 
+ 
“#* 
“a 
7% 
4 
7 
7% 
7 
eS 
7H 
aS 
7% 
TR 
1% 
7 


as 
aS 
iS 
7 
aS 
oR 
Ak 
4% 
es 
AX 
7% 
7% 
a 


bad 
“" 


aS 
1% 
7% 
7 
fo 
SR 
7# 
A® 
A 
1% 
oR 
A* 
TR 
eS 

xe 
aS 
7% 
7 
7% 
1x 
AX 
S% 
i 
7% 
7 
7% 
AR 
7 
Ok 
#8 
oR 
AR 
A 
SR 
ak 


INTERACTIVE TIMESHARED SYSTEM. INORDER TO */ 
PROVIDE REASONABLE INTERACTIVE RESPONSE TIMES */ 
TO USER ACTIONS, THE TERMINAL INTERFACE */ 
MODULE PROVIDES ALL LINE EDITING FEATURES FOR */ 


THE USER PRIOR TO TRANSFERING ANY DATA TO THE */ 
USER’S PROGRAM. (SEE KEYSCONMAND PROC) 7 
THE TERMINAL DISPLAY DESIGN UTIULITZES Two 7 
SEPARATE BUFFERS TO PROVIDE THE USER WITH THE */ 
CAPABILITY OF CONTINUING TO ENTER DATA PRIOR */ 
TO THE USER’S PROGRAM BEING SWAPPED IN TO KS 
PROCESS THE PREVIOUS INPUT LINE. KS 
THE FIRST BUFFER IS CALLED THE ’CURRENT LINE’ KS 


AND CONTAINS THE INPUT DATA WHICH IS CURRENTLY / 
BEING ENTERED BY THE USER. THE CURRENT LINE CAN #7 
RANGE FROM 0 TO 512 BYTES IN LENGTH. THIS IS THE*/ 
DATA THAT IS AFFECTED BY ANY LINE EDITING COMMAND*-/ 
ENTERED BY TiiE USER. */ 
THE SECOND BUFFER IS THE INPUT LINE OR BUFFER. KZ 
THE CURRENT LINE BECOMES THE INPUT LINE WHENEVER */ 
A CARRIAGE RETURN OR ERROR RESET (CMTS COMMAND 7 
KEY) IS ENTERED. THIS ACTION ALSO ESTABLISHES KS 
A NEW CURRENT LINE. THE INPUT LINE CONTAINS THE x7 
THE DATA WHICH IS TRANSFERRED TO THE USER PROGRAMx/ 


WHEN REQUESTED. THUS THERE CAN BE AN INPUT LINE x*/ 
AND A CURRENT LINE ESTABLISHED AT ONE TIM. KS 
THE CURRENT CURSOR POSITION ALWAYS SPECIFIES ae 
WHERE THE NEXT CHARACTER WILL BE ENTERED, ON 7 
INPUT, AND WHERE THE NEXT CHARACTER WILL BE 7 
DISPLAYED DURING OUTPUT. 7 
7 

THE FOLLOWING IS AN EXAMPLE OF POINTER 7 
MANIPULATION DURING INPUT: 7 
INITIALIZATION GR CLEAR SCREEN CMD: K/ 
ALL POINTERS ARE SET TO ZERO AND */ 
TERMSSTATUS = INPUT BUFFER EMPTY. K/ 

USER ENTERS DATA - “SAMPLE INPUT DATA": K, 
CURRENTSLINE POINTS TO THE STARTING POSITIONX7 

AND CURSOR ALWAYS POINTS TO THE NEXT 7 
POSITION TO FILL. NOTE THAT AT THIS POINT x*/ 

ONLY CURSOR HAS BEEN MNODIFIED. FOR THE Cg 
INPUT DATA ABOVE IT WOULD BE POINTING TO KS 
DISPLAY BUFFER POSITION 17. ed 

USER TERMINATES CURRENT LINE (I.E. ENTERS CR OR X74 
MTSSCMD) : 7 
ENDSIBUFF IS SET TO CURRENT CURSOR POSITION. */ 
CURSOR IS SET TO LEFT MOST POSITION OF NEXT */ 

LINE ON DISPLAY. */ 
CURRETTSLINE [S SET TO NEW CURSCGR POSITION. *-7 
TERMNSSTATUS IS SET TO INPUT WAITING. *%/ 

x7 

THE RESULTING POINTER POSITIONS ARE SHOWN FOR THEX/7 
SAMPLE INPUT DATA AND CR CHARACTERS ENTERED. 7 
(WHERE * = CURRENT CURSOR POSITION) <7 
7 

NC EIS */ 
oe ee ae 7 
ISAMPLE INPUT DATA | 7 
ee a ee ee 77 

1x | 7 
a a ee 7 

CL */ 

*/ 

JHE SAMPLE INPUT DATA IS NOW AVAILABLE FOR THE DA 
USER’S PROGRAM WHEN IT*S TIMESLICE COMES UP. 7 
THE NEXTSCHAR (NC) POINTER SPECIFIES THE NEXT ay 


CHARACTER TO BE READ AND RETURNED TO THE USER */ 
PROGRAM. WHEN NEXTSCHAR = ENDSIBUFF, A CARRIAGE x*/ 
RETURN (CR) IS RETURNED TO THE CALLING USER 7 
PROGRAM. */ 
THERE ARE THREE OCCASIONS WHEN THE NEXTSCHAR */ 
POINTER IS RESET EQUAL TO THE CURRENTSLINE */ 
POINTER: */ 
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/* (1) FOR A CLEAR SCREEN COMMAND. */ 


7* (2) WHEN READSTERMINAL PROC DETECTS THAT THE ed 

x END OF THE INPUT BUFFER HAS BEEN REACHED. */ 
7* (3) WHEN WRITESTERMINAL PROC OUTPUTS CHARACTERS */ 
A TO THE TERMINAL FROM THE USER’S PROGRAN. */ 
Ak */ 
“x THE OUTPUT OF DATA FROM THE USER’S PROGRAM TO / 
/*x THE TERMINAL RESULTS IN THE FOLLOWING: *K/ 
7*  €1) THE CHARACTER IS DISPLAYED AT THE CURRENT KS 
Ax CURSOR POSITION. */ 
/*x (2) THE CURSOR POSITION IS INCREMENTED. *K/ 
/%*% (3) THE CURRENTSLINE AND NEXTSCHAR POINTERS ARE x*/7 
S% SET EQUAL TO THE NEW CURSOR POSITION. */ 
7k €4) THE TERMINAL STATUS IS SET TO EXPTY. */ 
AK ae 
7 */ 


/* ANOTHER DESIGN CONSIDERATION WAS THE REQUIREMENT */ 
7k FOR THE TERMINAL MODULE TO PROVIDE A BLINKING */ 
7* CURSOR DISPLAY AT EACH TERMINAL. THIS REQUIRED */ 


/* SPECIAL PROCESSING TO ENSURE THAT THE CURSOR */ 
/* CHARACTER (O5FH) DID NOT GET LOST DURING THE 7 
/%* CURSOR UPDATE AND MANIPULATION FUNCTIONS */ 
/* ACCOMPLISHED BY THE KEY PROCESSING AND SYSTEM */ 
/* FUNCTION SUBIODULES. CHECKSCURSOR PROCC PRIMITIVE */7 
/* SUBHCDULE) PROVIDES THIS FUNCTION. 7K / 
1% */ 
as */ 
SP RRA RRR HOR RR ER RR HK RK ROR IK BI NR I SO a TN BR TE AA 


JER OR OR AR OR HS OE OR OK OR AR AS SIS AIS IS ORE AS OES IS PS OAR ES IS OIE SIS TAS IR ER TS IRS AS OS AIR IR TIS OS OIE OS O38 OR OS IS ORS IS NS OR oS OR 


SOR BRR RRR ERK RR BK RB OK RIS OR OK OR OR EK AE OR OK OOK EK ORR KOR KOK RE ERNE KR KZ 
ysexxck TERMINAL INTERFACE DATA DECLARATIONS  e25k%0Kxck/ 
A PRR IR TR SRR RK OK OK OK EK OR NER RAK OK OX SENS oR ROK TK OR OK EK OR OK OK KR MEO OK GOK SK RK OK AK KS OK OR ROK Z 


CMACRO IBUFFSEMPTY °9’ ]j 
CMACRO CURSORSCHAR °SFH’] 


A HERR TRAE ER RK RR KR EK RRR ERK ORK KE AR A SE IR ER OK RR RE ER AR EK ROR TOKO KK / 
ARERR KK TERMINAL INTERFACE DECLARATIONS  **%%kxKK/ 


7* ASCII - CONTAINS DATA FOR MATRIA CODE TO ASCII*~ 
fw CONVERSION. KS 


DECLARE ASCII DATA (1EH, 1CH, 1BH,5DH, 5BH, 29H, 28H, 7FH, 
260, 3DH, 25H, 24H, 23H, 40H, 21H, 2AH, OA, OCH, OBH, OAGH, 
ODH, 50H, 4FH, 15H, 55H, 59H, 54H, 52H, 45H, 57H, 51H, 49H, 
O0DH,9,3iH,9,22H, 3AH, 4CH, ODH, 4AH, 48H, 47H, 46H, 44H,53H, 
41H, 4BH, OFFH, 30H, 20H, 0A3H, 0A2H, 3FH, SEH, 3CH, 4DH, 4EH, 
42H, 56H, 43H, 59H, SAH, OFFH, 

OFFH, OFFH, OFFH, OFFH, OFFH. OFFH, OFFH, 7FH, OFFH, OFFH, 
OFFH, OA4H, OFFH, OFFH, OFFH, OFFH, OFFH, OFFH, OFFH, OAOH, 
ODH, OF FH, OFFH, 15H, OFFH, OFFH, OFFH, OFFH, OFFH, OFFH, 
OFFH, OF FH, OFFH, OFFH, OrFH, 69, OF FH, OFFH, OFFH, @DH, 
OFFH, OFFH, OFFH, @FFH, OFFH, OFFH, OFFH, OFFH, OFFH, OFFH, 
20H, GASH, OA2H, OF FH, OFFH, OFFH, OFFH, OF FH, OFFH, OFFH, 
@A1H, OF FH, OFFH, @FFH, 

OFFH, OFFH, OF FH, 5FH, OFFH, 7DH, 7BH, 7FH, OFFH, 7EH, 5CH, 
OA4H, 69H, 5EN, 7CH, OFFH, OFFH, OFFI, OFFH, GAOH, ODH, 
10H, OFH. 15H, 15H. 19H, 14H, 120,05, 17H, 11H, 09, 66H, 
5EH, 7CH, 69, OF FH, OFTH, OCH, ODH, GAH, 08, 07,06, 04, 

13H, 61, OBH, OFFI, 7DH, 20d, OA3SH, OACH, OF FH, OF FH, OF FH, 
ODH, @EU, 92, 16H, 63, 18H, 1AH, OFFA, 

39H, 38H, 37H, 2DH, 2BH, 9OH, 39H, 7FH, 37H, 36H, 35H, 34H, 
33H, 32H, 31H. 38H, 36H, 35H, 34H, 09H, ODH, TOH, 6FH, 15H, 
75H, 79H, 74H, 72H, 65H, 77H, 71H, 69H, 33H, 32H, 31H, 69, 
27H, 3BH.6CH, ODH, 6AH, 68H, 67H, 66H, 64H, 73H, 61H, 6BH, 
OFFH, 30H, 20H, OA3SH, GAH, S2FH, 2EH, 2CH, 6DH, 6H, 62H, 
76H, 6311, 780, 7AH, OFF) : 


ARBRE HB ACR OR EER HER A IS OK KR OB OB TS OIE OK OR SS OR OK OK OK IR OR OR TE RK OK SOK EK KOK KKK Z 
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7* STATUSSBASE —- START OF STATUS LINE AT EACH TERM */ 
/* DISPLAYSBASE - START OF DISPLAY LINES */ 
A HR RK RK RR AACE RK IK KE OE IR ENE SOK ER ME IES ER ROKK REZ 
DECLARE STATUSSBASE DATA 


(00H, 07H, 40H, 09H, 30H, OBH, O9COH, ODH) ;sx 


DECLARE DISPLAYSBASE DATA 


(40, 07H, 80H, 69H, OCOH, OB, OOH, OEH) ; 


A RRR AR EE OR OR IS SKS HS OR SK ORR OHS AS OR TK SE OE RS OIE SI KC OYE OI HS DEE OK SIC NS OK OK OK EE OK OK SOK OK CS / 
7x MISSMESSAGE - PATA VECTOR CONTAINING ALL THE MTS */7 


Ve MESSAGES WHICI] MAY BE DISPLAYED IN */ 
ok THE MTS MSG FIELD GF THE STATUS */ 
AX* LINE. KS 
/* SIZESMESSAGE- DATA VECTOR CONTAINING THE TEXT */ 
7% PORTION OF THE SIZE MSG FIELD OF *K/ 
1% THE STATUS LINE. */ 


J PRR RAR EAE AE IE EE AB AK AE ICR OE BEECHER HK OK NE OK OR TE TOR OKRA KE OK OK CE KZ 
DECLARE MISSMESSAGE DATA (’ 5 


DECLARE SIZESMESSAGE DATA (’K MTS ’); 


YK R *® *# ® *& KR K MB BH K KK ROR BM KR BH *& KB 
/* THE NEXT FOUR DECLARATICNS PROVIDE TIE POINTERS 7 
/* UTILIZED TO CONTROL THE INPUT/OUTPUT AT EACH */ 
yx TERMINAL. / 
“7% CURSOR - SPECIFIES THE CURRENT ADDRESS WEERE THE ef 
va CURSOR IS TO BE DISPLAYED. 7 
/* CURRENTSLINE - ADDRESS WHICH POINTS TO INITIAL BYTE x*/ 
Vin OF CURRENT USER INPUT LINE. THIS LINE HAS) xz 
Vee NOT YET RECEIVED A ’CR* AND THUS IS NOT YET*/Z 
ae CONSIDERED AN INPUT BUFFER. */ 
7% NEXTSCHAR - POINTS TO NENT CHAR TO BE PROCESSED FROM 
Y* THE INPUT BUFFER. AN INPUT IS DEFINED AS A :x-/ 
vars STRING OF ASCYI CHARACTERS (FROM 1 TO 512) x*/ 
Ves WHICH HAS BEEN TERMINATED BY A ’CR' OR i 
S% *MTSSCMD’ KEY BY THE USER. 7 
/* ENDSIBUFF - POINTS TO BYTE POSITION IN INPUT BUFFER x/ 
as WHERE ’CR’ OR ’MTSSCMND’ WAS RECEIVED. 7, 
Rk * * a * * * oe x « * * * * 9 * oe * + 
DECLARE CURSOR (&) BYTE INITIALGO,6,06,06,0,90.90,9); 

DECLARE CURRENTSLINE (8) BYTE INITIAL(9,90,9,9,9,83,90,9); 

DECLARE NEXTSCHAR (8) BYTE INITIAL(9,9,9,9,9,0,90,@); 

DECLARE ENDS IBUFF (8) BYTE INITIAL(90,90,9,89,9,90,9,0); 


/* CAPITALIZE - SET TO ONE IF TERMINAL IN CAP MODE */ 


DECLARE CAPITALIZE (4) BYTE [INITIAL (1,1,1,1); 


/k TERMSSTATUS - CONTAINS THE CURRENT STATUS OF */ 
7% EACH TERMINAL’S INPUT BUFFER, */ 
Lx EITHER INPUT WAITING; */ 
7% MTS CMD) READY; OR IBUFF EMPTY. */ 


DECLARE TERNSSTATUS (4) BYTE INITIAL (lL IBUFFSEMPTY], 
{ IBUFFSEMPTY] ,C IBUFFSEMPTY] ,{ IBUFFSEMPTY]) ; 


7%* SWAPSPOS - FOR EACH TERMINAL THERE IS A ONE BYTE */ 
a SAVE AREA WHICH IS USED DURING CURSOR ¥/ 
LR BLINKING PROCESSING */ 


DECLARE SWAPSPOS (4) BYTE INITIAL (CCURSORSCHAR] , 
[ CURSORSCHAR] , | CURSORSCHAR] , (CURSORSCHAR]) ; 


EOF 
SERRE RRR RS OR OK OR LR OK I EK OK OK SK OK OK OK BK OK ER OIE OR OR I IR OK RR KZ 


fee TERMINAL INTERFACE UTILITY PROCEDURES = X*:kckc«ecKx/ 
PRR ER ORS TE RT ARTS OK KR OK EK AR OE OK I A OS OK OR OK AB SS OS AEE OK OK OI HEHE AC IE OR IR EK AE EE KK Z 


[MACRO TRUE °OFFH’ ] 
[MACRO FALSE eae J 


Lot 








[MACRO SWAPSPOS PTifDda”’ ] 


COMPARESPTRS: PROCEDURE; 
ARERR RRR KR EE RE OR RI EI EE KR IK RE RR HR EE RE RR KZ 
/% COMPARES TWO POINTERS (2 BYTES EACH) TO DETERMINE*/ 


7%* IF THEY ARE EQUAL. */ 
/* INPUT: DE - ADDRESS OF FIRST PTR 7 
wis HL - ADDRESS OF SECOND PTR */ 
/%* OUTPUT: A -—- TRUE IF EQUAL, FALSE OTHERWISE. 7 
/* CALLED BY: REYSCONMNMAND; READSTERMINAL; */ 
A RR RRR TKR RR HR HS SK OK OK 2K iS OR OK i SE OK OK OK SiS OE OK OK OK SK OK KOR NE CE Ns hE oi SH KK 
CcY=0; 
IF (A=MCDE)--MNCHL)) !ZERO THEN 
A=( FALSE] 
ELSE 
DO; 


DE=DE+1; HL=HL+1; 
IF (A=MCDE)--MCHL)) !ZERO THEN 
A=[C FALSE] 
ELSE 
A=(€ TRUE] ; 
END; 
END COMPARESPTRS  ; 


CONVERTSNUMBRSTOSASCII: PROCEDURE; 
Shah he cfs HCH SR DK SER NES A oR SAO oH I fe eo oS He Ae a ICO BE SOA I AR SCD ROE SR IRR / 
7s CONVERTS THE SPECIFIED NUMEER TO A DISPLAYABLE 7 


/* TWO DIGIT DECIMAL NUMBER (MAX VALUE [IS 99). *S 
/* INPUT: A - NUMBER TO BE CONVERTED. ed 
/%* OUTPUT: B - LEFT MCST DIGIT TO Be DISPLAYED. */ 
roe C - RIGHT NCST DIGIT TOC BE DISPLAYED. 7 
/* CALLED BY: SIZESKSG; STATUSSNMSG; ed 
Fe ee a EO se eee tidy Vict Sit oh dea: oe cisticine todo wh data die contd etictodoch ch doctukice ead 
B=0; C=A; 
DO WHILE (A::180) PLUS; 
B=Bti; 
C=( A=C-10) ; 
END; 
C= ( A=A+30H) ; 
B= ( A= B+30H) ; 


END CONVERTSNUMBRSTOSASCI 1; 


GETS INDEX: PROCEDURE; 

ARERR RRR RE RRR RK RK RK RR RE OK RR ROR OK OR RIE CR OK ORR KK OR KZ 
/* USED TO GET THE INDEX INTO AN ADDRESS ARRAY BY = x*/ 
“* COMPUTING THE OFFSET FROM A GIVEN BASE ADDRESS. */ 
7* INPUT: <A - OFFSET VALUE (NORMALLY THE TASK OR ¥/ 


1 TERMINAL NUMBER). *K/ 
1® HL - BASE ADDRESS *K/ 
/* OUTPUT: DE- ARRAY OFFSET e/ 
7 HL- ARRAY OFFSET ( HL=DE) */ 
a BC- COMPUTED OFFSET */ 
7* CALLED BY: SCROLLSDISPLAY; UPDATESCURSOR; KS 
L% KEYSCOMMAND; TERMS INPUTSCNTL; */ 
1% READSTERMINAL; WRITESTERMINAL 7K / 
A ROR RR BR KR AS RK ROR AS EK OR OK SOR OK OR A OK IE RK OK GE OR AR RK RR OK OR OR OB OR EEK EAS KR RE 
CY=0; B=96; 


C=(A=<<A)3; /*® SET ADDRESS OFFSET TO OFFSET*2 */ 
HL=HL+BC; DE=HL; 
END GETS INDEX; 


GETSVALUE: PROCEDURE; 
SRE RAR TS ARE TEE AR EE AE EE OR 8 OK RE TK HE OK EE EE OE AE HEE TiS OK OE HE OE IE NEE OK ORK EE EK OR EK OK RE HK 


7* GETS A 2 BYTE VALUE FROM MEMORY. */ 
/* INPUT: DE - ADDRESS OF 2 BYTE VECTOR; THE */ 
7% CONTENTS ARE TO BE STORED IN THE */ 
ies HL REGISTER. k/ 
“7x OUTPUT: HL - CONTENTS OF 2 BYTE VECTOR */ 
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7 DE - ADDRESS OF THE HIGH ORDER BYTE */ 


“7%* CALLED BY: SCROLLSDISPLAY; UPDATESCURSOR; */ 
7% KE YSCOMMAND; READSTERMINAL; */ 
LR WRITESTERMINAL; GETSDISPLAYSADDR */ 


ARR RRR RRR IK IRE RR RR IE EIR SE ROR EK SEGRE RSI / 
L=(A=MCDE)); DE=DE+1t; H=(A=MCDE)); 
END GET@VALUE; 


STORESVALUE: PROCEDURE; 
A MERRIE ES EKA OK OR OK KS HS OE HE OK HS OK SEK OK 2 BK OE OK OK OK KOK KK 2K KR KE NC KOK OK OK 


/* STORE A 2 BYTE VALUE INTO MEMORY. *K/ 
7x INPUT: HL - VALUE TO BE STORED INTO MEMORY */ 
* DE — ADDRESS OF HIGH ORDER BYTE a7 
/* CALLED BY: UPDATESCURSOR; KEYSCOMMAND; */ 
S% REACDSTERMINAL; WRITESTERMINAL; */ 
om GETSDISPLAYSADDR; *7 


A ROR AK EE KR RK EAR OR KK AR SK AE RNR MEK OR AK OK ARK KR ERNE K / 
MC DE) =CA=H); DE=Di-1; MC DE) =( A=L) ; 
END STORESVALUE; 


MOVESBYTES: PROCEDURE; 
A WAAR RRR AR MK EK OK RICK OR KR OK EE RK OK ORK OK OK NER ROR ROE KO KZ 
7* MOVES BYTES OF DATA FROM ONE MEMORY LOCATION TO x/ 


/#* ANOTHER. *S 
7* INPUT: BC - NUMBER OF BYTE TO BE MOVED. */ 
Ax DE - STARTING MEMORY ADDRESS TO NOVE KS 
J* BYTES TO (DESTINATION). */ 
Lf AL - STARTING MEMORY ADDRESS TO MOVE KS 
fe BYTES FROM CSOURCE). KS 
/% CALLED BY: SiZESNS€; MTSSMSC; */ 
ATR TR RR RAR ARO AR FE HS AR OR OR OK AB FS OB OS OE OI AR IS RAC RS 27S OIC OS A OR A AS IS SK SR OS OS A OB 
REPEAT; 


MC DE) =C A=MCHL)) ; 

DE=DE+1; HL=HL+1; 

BC=BC-1; A=9; 
UN@TiL Cx B) ZERO CA::€) ZERO; 
END MOVESBYTES ; 


SWAPSCURSOR: PROCEDURE; 
AP KRRKKRKRK RK ERR KEK RK KR RE ER RK KR KKK EK KR EK KEK KK ERK ER 7 


/%* SWAP THE SPECIFIED TERMINAL’S CURRENT CURSOR */ 
7* POSITION CHAR WITH THE SWAPSPOS CHAR. */ 
/* INPUT: A - TERMINAL NUMBER 7 
7k HL - DISPLAY ADDRESS OF CURSOR POSITION x7 
/* CALLED BY: BLINKSCURSORS; CHECKSCURSOR; 7 
A RRR KK RE AS ERR OR KR AER RK OK OR OK AE OK OK OK OI IK OK OK ORK OK OS OK OR OK OK OK OK OR KEK ROK RK 

DE= HL; /* SAVE DISPLAY ADDRESS ae 

B=0; C=A; 

HL=C( SwaPrspos]+rbBCc; 7%* GET SWAP ADDRESS * 7 

B=( A=M(DE)); /* SWAP */ 

M( DE) =( A= MC HL) ) ; 

MC HL) =( A=B); 


END SWAPSCURSOR; 


EOF 

S KERR RAR HR BOK KRIS EEK HOE OK OE ROR EK OK OK KOR NEE KE / 
ARERKRERE TERMINAL INTERFACE PRIMITIVES  *&e#%KKKKKKKRZ 
rere che Mee ooh Pe eck ache ots ste ok He ok ote he eke ok hee eek ek ae RK RR 


[MACRO TRUE *OFFH?’ J 
(MACRO FALSE eS es J 
{MACRO BLANK P20’ 
{MACRO IBUFFSEMPTY °9’ J 
{MACRO DISPLAYSSIZE Te 
{MACRO TERMSPORT °OSFH’ J 
[MACRO CURSORSCHAR °OSFH’ I 
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A RRR RR KR RB RR EEE RETR OR ROR KR AK EEK RR EK OK ENE OK OK KKK KKK KEK EEK OK 


SRR BRA RRA INTERNAL LINKAGE MACROS) **->%%-K RRR KKK 
{INT TB) [TB := 1000H) 
[MACRO STATUSSBASE *L HEX TB + @196H)’] 
[MACRO DISPLAYSBASE ’( HEX TB + O0111H)°] 
[MACRO CURSOR *"CHEX TB + O1D5H)’) 
[MACRO CURRENTSLINE ‘(HEX TB + O1IDDHI’J 
[MACRO NEXTSCHAR PhHES ITB + O1E5H!’] 
(MACRO ENDSIBUFF *CHEX TB + O1EDHI’ J) 
[MACRO TERMSSTATUS *LHEX TB + @O1F9H!}’ ) 
[MACRO GETS INDEX *CHEX TS + O024CH)°] 
[MACRO GETSVALUE *CHEX TB + 0259H)]’) 
[MACRO STORESVALUE °’CTHEX TB + 0262H)]’]) 
[MACRO SWAPSCURSOR ‘°’(HEX TB + O27EH)’]) 
BLANKSDISPLAY: PROCEDURE; 


SRR ERIK RRR RIE EE AME ERR SR SRS SERA AMMAR 


7* PLACES BLANKS INTO THE INDICATED AREA OF A 7 
7* TERMINAL DISPLAY. */ 
7* INPOT: BC ~- STARTING ADDRESS (RANGE 0 TO 511) A 
vk DE - NUMBER OF BYTES TO SET TO BLANK <7 
os HL - BASE ADDRESS */ 
7% CALLED BY: KEYSCOMMAND; SCROLLSDISPLAY; */ 
as CLEARSSTATUSSLINE; MTSSMSG; Sd 
SRA RRR REET RTE NER HE EK TEM SNE OR SK MEEK ESTE ENE SH RSE eZ 
HL=HL+EC; 
REPEAT; 
MC HL)I=CA= [C BLANK] 3; 
HL=HL+1; 
DE=DE-1; A=6; 


UNTIL (A::D) ZERO (A::E) ZERO; 


END BLANKSDISPLAY; 


GETSDISPLAYSADDR: PROCEDURE; 
SRR RK RRR RK EKER KE EK EK ER SOR A NEI OK OK KOK OR AR RK OK HER OE KOK K EK 


/* GETS A MENORY ADDRESS IN THE DISPLAY BUFFER USINGx/ 
/7* THE DISPLAY BUFFER PTR AS OFFSET FROM THE DISPLAYX/ 
/7* BASE ADDRESS. x 
7% INPUT: BC - TERMINAL NUMBER OFFSET. */ 
7k. DE —- ADDRESS OF DISPLAY BUFFER PTR *K/ 
7* QUTPUT: HL ~- MEMORY ADDRESS IN DISPLAY BUFFER. *K/ 
7% BC -—- DISPLAY PTR VALUE. <7 
/* CALLED BY: TERMS INPUTSCNTL; KEYSCOMMAND; */ 
7% BLINKSCURSORS; READSTERMNINAL; *K/ 
7 WRITESTERMINAL; ae 


ARRIETA HK RS SS OK OS AE HEE AR ORK ASCE OOK OK OK OK EK OK SOK A COKE NE OK OR OK / 
DECLARE PTR(2) BYTE; 
CALL (GETSVALUE] ; 


PTR= HL; 


BC= ( HL=PTR) ; 
CALL [ GETSVALUE} ; 


HL=HL+5C; 


7% SAVE DISPLAY PTR VALUE 
DE= ( HL=[ DISPLAYSBASE]+BC) ;7*GETSVALUE PARAMETER x/ 


7% 


GET DISPLAY PTR VALUE 
7* GET DISPLAY BASE 


7* GET DISPLAY ADDRESS 


a 


*/ 
KL 
x / 


END GETSDISPLAYSADDR; 


CHECKSCURSOR: PROCEDURE; 

A ARR EEK ACNE HE OOK RK KOK ORK AK ERK ROR SE NEE OE EEO HN OI EK EK OK NE EE / 
7* PRIOR TO CHANGING THE CURRENT CURSOR POSITION OR x/ 
7x DISPLAYING A CHARACTER AT THE CURRENT CURSOR POS, */ 


7* SN CHECK IS ALWAYS MADE TO ENSURE THAT THE */ 
7* CURRENT DISPLAY IS A DATA CHARACTER AND NOT THE */7 
7* CURSOR ITSELF (1.E. SFH). IF IT IS THE CURSOR */ 
7* A SWAP IS MADE. */ 
7* INPUT: A - TERMINAL NUMBER 7 
7* CALLED BY: KEYSCOMMAND; TERMSINPUTSCNTL; */ 
7% WRITESTERMINAL; */ 
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SRR RAR ARK AR BE RE RB RR I I A A ER OK IE RII RE EK AR IC ER TR AE OR OK NEE RE RK 
DECLARE T BYTE; 
T=A; HL=(€ CURSOR]; 
CALL [GETSINDEX] ; 
CALL GETSDISPLAYSADDR; 
IF (A=MC HL); A::CCURSORSCHAR]) ZERO THEN 
DO; 
A=T; 
CALL [SWAPSCURSOR] ; 
END; 
END CHECKSCURSOR; 


GETSSTATUSSADDR: PROCEDURE; 
A RRM TER IR AC ARK AC OK HE AK OK OK HE IC ISS A OK OK OH OK HR NS OR TK OK BS OR OK ISTE SRK IE ISR EC 7 
/* GETS THE BASE ADDRESS OF THE STATUS LINE FOR THE */ 


7* SPECIFIED TERMINAL. */ 
“* INPUT: A -—- TERMINAL NUMBER a 
7% OUTPUT: HL — MEMORY ADDRESS OF FIRST BYTE IN */ 
S% STATUS LINE. */ 
7* CALLED BY: CLEARSSTATUSSLINE; MTSSMSG; 7 
7 SIZESMSG; STATUSSMSE; */ 


A RRR OR KE ERK OR OK I KE BE IR SR KK A IE RCE IE RK ORS MRS HE NS ER ORES / 
HL=(STATUSSBASE] ; 
CALL (G&TSINDEX] ; 
CALL (GETSVALUE! ; 
END GETSSTATUSSADDR; 


GETSTERNSSTATUS: PROCEDURE; 
ARR RK AB OR OK EAR SK OK OK ORT OR E28 OK OK OKO OE OK SO ES TES OPE OK OK OES OIE OR KIS OES OE OK OR OK OR I OK EE KZ 
7 RETRIEVES THE TEPMINAL STATUS FOR THE INDICATED *-7 


7* TERMINAL. TERMINAL STATUS SPECIFIES WHETHER 7 
“* OR NOT THERE 1S AN INPUT BUFFER OR MTS COMMAND eZ 
/%* READY FOR PROCESSING FOR THAT TERMINAL. *K/ 
“* INPUT: A —- TERMINAL NUMBER */ 
7x QUTPUT: A - TERMINAL STATUS Kk / 
/* CALLED BY: KEYSCOMMAND; TERMINALSSTATUS ; KS 
7 UPDATESCURSOR; MONITOR (MON MOD); 7 
FRR RNR SRE GIS RK S98 RSS OK OK OS FE KR AS OR OR AS OK OK 2S RK OK AE SE OR WR ES OE OR OK OR OK OE OK ASS OK OK OK KZ 

B=0; C=A; 

HWL=( TERNSSTATUS]+BC; 

A=MC HL) ; 


END GETSTERMSSTATUS ; 


SCROLLSDiSPLAY: PROCEDURE; 
ARR RRA BRR KR EE IR ERR ARE AR OK OR ER RR OE OK EEE OR EK RZ 
7* SCROLLS THE DISPLAY FOR THE INDICATED TERMINAL. x*/ 
7* INPUT: A ~- TERMINAL NUMBER */ 
7* CALLED BY: UPDATESCURSOR */ 
A RRR RK KR ERE ACER SB SEI A TR NE OK ERE KE EK OK OR SEK ER OK OR KZ 

DECLARE TERM BYTE; 

DECLARE POS(2) BYTE; 

TERM=A; HL=t DISPLAYSBASE] ; 

CALL [GETS INDEX) ; 

CALL ([GETSVALUE]; DE=HL; /“*DE=DISPLAY BASE ADDR */ 


POS=HL; 7* SAVE DISPLAY BASE ADDRESS*- 
BC=64; 
BC=( HL=HL+BC) ; 7* BC=DISPLAY BASE + 64 */ 
OL=448; 
REPEAT; 


M( DE) =( A=MCBC)); 

BC=BC+l; DE=DE+i; 

HL=HL~-1; A=80; 
UNTIL (A::H) ZERO CA::L) ZERO: 
BC=448; /*k SETUP PARAMETERS FOR / 
DE=64; HL=POS; 7* BLANKSDISPLAY PROC */ 
CALL BLANKSDISPLAY; 
END SCROLLSDISPLAY; 
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SENDSBEEP: PROCEDURE; 
A RRR RRR RR EK RK RR RR ER RR RRR RK KKK EK NRK EE REZ 


/* SENDS A BEEP TO THE INDICATED TERMINAL. KS 
/* THE FORM OF THE TERMINAL ALERT CONTROL BYTE IS: xv 
Ln ¢ 6 5$ 4 3 2 1 8 */ 
PR wm www nnn nnn —-- -------- 7 
7% 1AS1IC31AZ21C21A11C11A01COl1 */ 
PR ree eee ann -------------- */ 
/* WHERE: */ 
7x ACI) = 1; GENERATES AN ALARM AT STATION I. *K/ 
7X C(I) = 1; GENERATES A CLICK AT STATION I. 7 
7x INPUT: A - TERMINAL NUMBER *K/ 
/* CALLED BY: KEYSCOMMAND; *K/ 
A RRR AS RR AE RK RR TKR AG OK OR OK SSI OK OK OK 2K OR OR OK OK ER NS AS OR SE OK OR NS EK SE NE Ne ois Oe eK eK 
W=0; L=A; 
IF (€A::0) PLUS (A::4) MINUS THEN 
DO CASE AL; 
OUTC{ TERMSPORT] )=C€ A=2) ; 
OUTC({ TERMSPCRT] ) =( A=8) ; 
OUT( { TERMSPORT] ) = ( A=20H) ; 
OUT( { TERMSPORT] )=( A=80H) ; : 


END; 
END SENDSBEEP ; 


SENDSCLICK: PROCEDURE; 
A RRR MERE RE TS ERR OR RE TI ROK OR TS AER RK OK ER NC OE OR ER OE SK OK OS IE RS HE OK OK OR OR REE OE EK OR KK HZ 


/* SENDS A CLICK TO THE INDICATED TERMINAL. SEE KS 
/* SENDSBEEP PROC FOR DEFINITION OF TERMINAL ALERT *x/ 
/* CONTROL BYTE. 7H 
7%* INPUT: A - TERMINAL NUMBER *K/ 
f* CALLED BY: UPDATESCURSOR KS 
A ORR TR KOK NER ORR OK SK 27S OR ROOK OK TS OIE AE OK KO OR TE ORR OK NS OK OK OR OIE HE OS SK TK OK OK OE OK OS OK ROR AEE KOR OK / 

H=0; L=A; 

IF (€A::6) PLUS (A::4) MINUS THEN 

DO CASE HL; 


OUTC{L TERNSPORT] ) =( A=1) ; 
OUTC( C TERNSPORT]) =(C A=4) ; 
OUT(( TERMSPORT] )=( A= 10H) ; 
OUTC TC TERMSPORT] ) =( A=460H) ; 
END; 

END SENDSCLICK; 


UPDATESCURSOR: PRCCEDURE; 

A RRR RR AS RRR RE BR RR RR RS ORE RR RE ORE OK SK OR OK OR OE AE OK ER ROK OR OR ER OR ER RR KE RK / 
7* CONTROLS THE UPDATING OF THE CURSOR POSITION. THE*/ 
7* PRIMARY CONCERN IS TO CHECK FOR SCROLLING PRIOR x*/ 
/* TO UPDATING THE CURSOR. SCROLLING IS NOT ALLOWED x*/ 
7/* IF SCROLLING WILL DESTROY ANY INPUT DATA NOT YET */ 


7*® PROCESSED. * 
/* SUBPROCEDURES: CHECKSSCROLLSLOCKOUT ce 
7* UPDATESDISPLAYSPTRS *K/ 
/* INPUT: A - TERMINAL NUMBER 7 
wk HE - VALUE TO WHICH CURSOR POSITION IS */ 
1% TO BE SET. *7 
/#*® CALLED BY: KEYSCOMMAND; TERMS INPUTSCNTL; KS 
S# WRITESTERMINAL; RS 


SRR RRR ERR RE AE I ORR KE ER BEE OK OK EK OK AE A A OR OR RK KR HE NEE IE HE RK AEE KZ 
DECLARE T BYTE; 
DECLARE POS(2) BYTE; 


CHECKSSCROLLSLOCKOUT: PROCEDURE; 
LH PRR REE OR EK KE NE OK OK OK RE OK KKK OK 2K OK OR ER AS OR ORK KK OK OK RK RE KK KK KEK KZ 
/* CHECKS TO SEE IF THERE IS AN INPUT BUFFER “KS 
/* READY. IF SO, CEECKS TO SEE IF SCROLLING WILLX/ 
“* DESTROY INPUT BUFFER. IF SO, RETURN TRUE, 7 
/% ELSE RETURN FALSE. e/ 
/* OUTPUT: A - TRUE IF SCROLLING IS LOCKED OUT x/ 
7 MRR ARR HE as AC 4S OK KOK HE AK OR OK KK KK A OR EK OK OK OR EK ROK OE ORK OR SK OK OK 2K OK EE KE HZ 
A=T; 
CALL GETSTERMSSTATUS ; 
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IF (A=A-C IBUFFSEMPTY]) !ZERO THEN 
DO; /* CHECK NEXTSCHAR PTR R/ 
A=T; HL={ NEXTSCHAR] ; 
CALL (CGETSINDER] ;“* GET NEXTSCHAR OFFSET*/ 
CALL CGETSVALUE]; /“* GET NEXTSCBAR VALUEX/ 
BC= -64; CY=90; 


IF (CHL=HL+BC) CY THEN 7* SCROLL OK *S 
A={ FALSE] 
ELSE /* SCROLL LOCKEDOUT */ 
A= TRUE) ; 
END 
ELSE 7* NO INPUT BUFFER, SCROLL OK KS 
A={ FALSE]; 


END CHECKSSCROLLSLOCKOUT; 


UPDATESDISPLAYSPTRS: PROCEDURE; 
ARR RR RRR KR RK RE RR HK RR TRE RR KR CK RK 


/* UPDATES ALL DISPLAY PTRS TO REFLECT THE */ 
7* SCROLLING OF THE DISPLAY. USES SETSPTR TO */ 
7* DECREMNENT AND STORG THE POINTER VALUES. */ 
/* SUBPROCEDURE: SETSPTR; *S 


AMER KE EE SS OR OR AS OK OK ASK Ht NE OR IS NS TE 2S HE OK ORS NE OR NS SK OK OES 98 TiS KT NS NE RO TES KK / 


SETSPTR: PROCEDURE; 
A RRR TR RRR RK RK KR BK ER RK RK OR RK EK OR ROR IR ORK RRR Z 
“* SETS THE SPECIFIED PTR TO PTR-64, AND */ 
“* STORES THE RESULT. */ 
7 INPUT: DE - ADDRESS OF PTR / 
A RARER AR RR KE IK RE OR ICR KR CTE ORK IER RK Z 

CALL ([GETSVALUE] ; 

BC=~-64; HL=dL+3C; 

CALL [STORESVALUE] ; 

END SETSPTR; 


A RRR ORR AR RR TK AER ROK OK TS OK OR OR OK SOR OK OK OK KOR SK OK OR OK OK OR OK ORK RK RK KKK ZS 
7* START OF UPDATESDISPLAYSPTRS PROCESSING x/ 
PDR IRR ARR ARK IR AR ACS OO OR OS OB IETS a AC AS HEC OS IS OSE OK ENS OE IS AE OG AE IS OE ORS 7 


/% SET CURSOR TC LEFT MARGIN OF 8TH LINEX~ 
/* ON DISPLAY. 7 
A=T; HL=(€ CURSOR] ; 
CALL (GETSINDEX] ; 
HL=448; DE=DE+1; 
CALL (CSTORESVALUE] ; 
/%* SET NEXTSCHAR = NEXTSCHAR - 64 a it 
DE=( HL=( NEXTSCHARI+BC) ; 
CALL SETSPTR; 
/* SET CURRENTSLINE = CURRENTSLINE - 64 x7 
A=T; HL=( CURRENTSLINE] ;: 
CALL CGETSINDEXN] ; 
CALL SETSPTR; 
/* SET ENDSIBUFF = ENDSIBUFF —- 64 c7 
A=T; HL=CENDSIBUFF] ; 
CALL [GETS INDEX] ; 
CALL SETSPTR; 
END UPDATESDISPLAYSPTRS; 


A HERR RRR EKER AK AR EK RK ERR EE RK OK SR ORR OR OR OR KR ISIE KR KZ 
“* START OF UPDATESCURSCR PROCESSING *S 
ARR OR ERE RR KE RK KE OE MCR AC RR AE CK OR OR OK ASE AEE OE OR CR ORK 


T=A; /*& SAVE INPUT TERMINAL NUMBER = 
POS=HL; /*% SAVE INPUT CURSSR POSITION K/ 
BC= -{DISPLAYSSIZE]; CY=6; 
IF (HL=HL+8C) CY THEN /* SCROLLING REQUIRED */7 
DO; 
CALL CHECKSSCROLLSLOCKOUT:; 
IF €A=>>A) CY THEN 7x SCROLLING LOCKED OUT */ 
DO; 
A=T; 
CALL SENDSCLICK; 
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7* SCROLLING IS OK */ 


A=T; 
CALL SCROLLSDISPLAY; 
CALL UPDATESDISPLAYSPTRS ; 
END; 
END 
ELSE /%x NO SCROLLING REQUIRED; 
DO; 
A=T; BL=C( CURSOR] ; 
CALL [GETS INDEX] ; /*% GET CURSOR PTR ADDR */ 
HL=POS; 7%* SETUP CSTORESVALUE] PARAMETERS */ 
DE=DEt 13 
CALL CSTORESVALUE]; 
END; 
END UPDATESCURSOR; 


UPDATE CURSOR */ 


/* UPDATE CURSOR PTR */ 


EOF 

A RRR KM RR ORR RK EK RK KR SK OR OE NSS OK IS OS 1S TE RK OK 2 OK OK OR KE OK OR OK KOR ER 7 
/RRKKEX TERMINAL KEY PROCESSING PROCEDURES ecko, 
A RRR RRR HR RR EK GK RES SK OK OK OR OK 2 OK OK OK OK oR OK OR aX RS OK EK AE IE OR KOR OK KK HZ 


CMACRO TRUE °OFFH? ] 
[MACRO FALSE 6° ) 
CMACRO BLANK ‘20H’ |] 
[MACRO CURSORSCHAR ‘ORTH’ ] 


[MACRO INPUTSWAITING °OFFH? ] 
CMACRO MTSSCMDSREADY °OFGH’ ] 
CMACRO IBUFFSEMPTY *@0’ ] 


A HERR RR RRR KB RR RR SR RE EK BSR OK RR RR OK ER SRE OE NER NCR AE OK OR EK ROK / 


PRRKRREKEKKX MTS KEY COMMAND MACROS = KKK KRKKRKKKKN 
[MACRO MNTSScMD *OAOH’ J 
[MACRO CR °"O@DH’ ] 
[MACRO CHARSDELETE "OCcEn ) 
C(MACRO LINESDELETE °@15H° ] 
CMACKO CAPITAL *@AIH’ J 
[MACRO CURSORSLEFT °@A2H’ ] 
[MACRO CURSORSRIGHT *@ASH’] 
[MACRO CLEARSSCREEN *OAGH’ ] 


MTR AB AR IR AR RAB OR 28 RCS AR IR AR BR OR AR IR 6 AB AE 8 AR RAR AS AS OR PS AS AB OS HS a8 IS IS AR OR OB IS OB BR AE AE A EAE OR AEE OK 


/*keeKE TNTERNAL AND EXTERNAL LINKACE MACROS = *%%xxx/ 
CINT CB TB) (GB := @] CTS := 10068] 
([MACRO TCTSSTATUS "CHEX GB + S3SE9S5H]°] 
CMACRO ASCII °C HEX TB + 0063H]’°] 
[MACRO DISPLAYSBASE “WHEx TE + -O11F18)7 
[MACRO CURSOR *CHEX TB + @O1D5H]’] 
[MACRO CURRENTSLINE *CHEX TB + OI1DDH!’} 
[MACRO NEXTSCHAR *CHEX TB + O1LESHI]’] 
CMACRO ENDSIBUFF °C HEX TB + O1EDH)’) 
CMACRO CAPITALIZE *CHEX TB + O1FSHI°] 
{MACRO SWAPSPOS "CHEX TB + @O1FDH)’] 
CMACRO COMPARESPTRS *CBEX TB + 0213H]°] 
CMACRO CETS INDEX "CHEX TB + @24CH]°] 
CMACRO GETSVALUE "(HEX T8 + @259H)]") 
CTIACRO STORESVALUE SIE GUD Sy Se Ss 5 1s pated 9 OB 
[MACRO BLANKSDISPLAY *CHEX TB + O2A3H] °) 
CMACRO GETSDISPLAYSADDR °C HEX TB + 62B7H)’] 
[MACRO CH&CKSCURSOR "CHEX TB + O2D0H]"] 
CMACRO GETSTERMSSTATUS ’CHEX TB + O2F9H] 7] 
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[MACRO SENDSBEEP *CHEX TB + O33EH]’] 
CMACRO UPDATESCURSOR *"CHEX TB + 903C2H)’] 


KEYSCOMMAND: PROCEDURE; 
ARR RHR RR ARR TES OR AB OB TE OR FS HS OS I IS SO 8 OS PS OE OS I OS IS a ES A IES AR IS EOS OR OR AR ES 


78 
7* 
iS 
i 
LX 
eS 
“He 
7% 
7% 
7% 
7% 
eS 
7% 
ai 
A 
7% 
AK 
7 
A 
a’ 
as 
A 
7% 
/% 
as 
OR 
a 
7% 
LK 
OR 
A 
A 
Ax 
SR 
OR 
os 
“x 

* 


7 


CHECKS FOR A TERMINAL KEY COMMAND FOR EVERY KEY *x/ 


INTERRUPT RECEIVED. */ 
KEY COMMANDS ARE: */ 
CMD KEY RESULT */ 

=——= 77a */ 

NTS CMD ERROR RESET SENDS A COMMAND TO */ 
MTS FOR PROCESSING. *7 

CR NEW LINE; TERMINATES THE */ 


ENTER; SHIFT CURRENT LINE AND */ 
CR; [70 CTL M;: ESTABLISHES IT AS KS 
THE CURRENT INPUT */ 


BUFFER. */ 
CHAR DELETE BACK SPACE DELETES THE LAST */ 
CHAR ENTERED. / 
LINE DELETE NEXT FMAT DELETES THX CURRENT x*/7 
SPNE *KS 
CAPTIALIZE rS C FLIP/FLOP USED TO x7 
SET OR CLEAR THE Sd 


TERMINAL INPUT MODE */ 
TO UPPER OR LOWER a7 


CASE LETTERS. */ 
CLEAR SCREEN FS §$ CLEARS THE 312 CHAR */ 
DISPLAY BUFFER. 7S 
CURSOR LEFT = MOVES CURSOR POS / 
CNE POSITION TO THE */ 
LEFT. */ 
CUROSR RIGHT al MOVES CURSOR POS */ 


ONE POSITION TO THE */ 
RIGHT. KS 


SUBPROCEDURES: ACCEPTSGINPUT; CHECKSLEFTSMARGIN; *-/ 


DELETESCHAR; CLEARSPTRS; MNTSSCMD; x*/ 


TEAMINATESCL; CARRIACHESRETORN ; */ 

CHARSDELETE; LINESDELETE; CAPITAL; */ 

CLEARSSCREEN; CURSCRSLEFT; */ 

CURSORSRIGHT: CHECKSCASE; KS 

INPUT: A - TERMINAL NUIBER */ 
C - ASCII CHAR RECEIVED */ 

OUTPUT: A - TRUE IF CHAR = KEY CCMMAND K/ 
CALLED BY: TERMS INPUTSCNTL; */ 


A RTE ES ARE OK OR ORK OK SRK ARK EK OR AR OK AK OR OR OK AE OK AS OK OR RR RAS KS OR RR ERK ERK RE KZ 


DECLARE (CHAR,T) BYTE; 
DECLARE RESPONSE BYTE; 


ACCEPTSINPUT: PROCEDURE; 
SRR RK RK RRR RE ER RK RR RK AR RE RR OB OR RE OR OR ARK OR RK ORK / 
“* CHECKS THE TERMINAL’S CURRENT STATUS TO KS 
“* DETERMINE IF THIS NEW INPUT BUFFER SHOULD BE x/ 
7* ACCEPTED. IF SO, RETURNS TRUE, ELSE FALSE. ¥*/ 
7* OUTPUT: A - TRUE IS INPUT CAN BE ACCEPTED. x*/ 
eS HL - IF A IS TRUE THEN HL CONTAINS mL 
om THE ADDRESS OF TERMSSTATUS. */ 
SRR RRR ARR RR RE RR RR AR OR OK AR OR IE AER ORK KR OK OK OB ARK EK OK EEK KZ 
A=T; CALL CGETSTERMSSTATUS] ; 
IF (A::C IBUFFSEMPTY]) !ZERO THEN 
DO; 7* INPUT BUFFER HAS NOT YET BEEN / 
7*PROCESSED;DO NOT ACCEPT NEW BUFFER*Z 
A=T; CALL [CSENDSBEEP) ; 
A={€ FALSE] ; 
END 
ELSE 
A=E TRUE] ; 
END ACCEPTSINPUT; 


CHECKSLEFTSMARGIN: PROCEDURE; 
SRR MER AR TE ARK ARK RK AK OK OK NE BE IR EE AE OR ORK OK AE OR SIAR A OR RE AR KZ 
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7* CHECKS TO SEE IF CURRENT LINE IS EMPTY. */ 
7% COMPARESPTRS RETURNS THE APPROPRIATE TRUEZ 7 


7%* FALSE VALUE IN THE A REGISTER. */ 
7% INPUT: DE - ADDRESS OF CURSOR */ 
1% BC —- COMPUTED OFFSET CF TERM NBR *K/ 
7* OUTPUT: A - RETURNED TRUE IF CURSOR IS */ 
SR PRESENTLY AT LEFT MARGIN. */ 


ARR RRR RIE RK RRR AE OK RK RR RK OK EO RK RK RIOR / 
HL=( CURRENTSLINE]+BC;7*HL=ADD OF CURRENTLINE*~ 
CALL [ COMPARESPTRS} ; /* COMPARE */ 

7* CURSOR = CURRENTSLINE x*/ 
END CHECKSLEFTSMARGIN; 


CLEARSPTR: PROCEDURE; 
A RRR KRM ROK KK ORE AS IG OK OR KE OK ROK ORR A OK KR RK RK RRR KOK OK RK / 


/* SETS THE VALUE TO THE SPECIFIED DISPLAY *7 
“7* POINTER TO ZERO. +7 
“* INPUT: HL ~- ADDRESS GF THE DISPLAY PTR i 


A RRR RK RR AK RK AER RRR KR RK OR RE ER KE EK / 
MC HL)=(CA=0); HLSHL+1; MCHL)=A; 
END CLEARSPTR; 


DELETESCHDAR: PROCEDURE; 
ee ae etsele 1c are ota Ya rene ne ha oie sin ome ote e score cee nla nies oa oie obs are oes aca tC ote AIS OTR IS IS IS IS Oe ONS ES SO eee 


7* DECREMENTS THE CURRENT CURSOR POSITION AND */ 


7* SETS NEW CURSOR POSITION DISPLAY TO BLANK. / 
7* INPUT: DE - ADDRESS OF CURSOR A 
7 BC - COMPUTED OFFSET OF TERMINAL NBR x*/ 
A RRR RRR RR IK RR ROR RRR RK IE ERK I OK OB KOR AR IK TKS ER KKK KOK 
CALL (CETSVALUE] ; 7% GET CURSOR KS 
HL=HL-1; 7x DECREMENT CURSOR 7 


CALL ([STORESVALUE]; /“* SAVE NEW CURSOR POS) */ 
CALL CGETSDISPLAYSADDRI]; ~* REPLACE PRESENT *7 
MCHL)=CA= CBLANKI]); 7% CHAR WITH BLANK x7 
END DELETESCHAR; 


TERMINATESCL: PROCEDURE; 

A BRR KK HEB RIK RK SOK EK EK SR NE ARE ER OE OR ACE SE ICR ROK OR KK / 
7* TERMINATE THE CURRENT LINE. THE SAME */ 
7* PROCESSING IS DONE FOR BOTH AN NTS CMD AND */ 
7* A CARRIAGE RETURN (CCR SINCE EACH SPECIFIES *-7 


/* THE END OF INPUT BY THE USER. *7 
A RRR RRA RK RK EK ERIK EK IR KK OE RK EEK SK IR EK OK IE RK RK OR OK 
7: CHECK CHAR PRESENTLY BEING *S 
7* DISPLAYED AT CURSOR POSITION *S 
7* PRIOR TO UPDATING PTRS. */ 
A=T; CALL ( CHECKSCURSOR] ; 
7s END OF CURRENT LINE; UPDATE * 
“* DISPLAY POINTERS FOR NEW INPUT */ 
7x BUFFER AND NEW CURRENT LINE. */ 


/* SET ENDS IBUFF=CURRENT CURSOR POS */ 
A=T; HL=C ENDSIBUFF] ; 
CALL (CETS INDEX] ; 
HL={ CURSOR] +BC; 
BC=DE; DE=HL; 
CALL LGETSVALUE] ; 


DE=BC+1; 

CALL CSTORESVALUE!]; “* ENDS IBUFF=CURSOR */ 
/* MOVE CURSOR TO BEGINNING OF */ 
7* NEXT LINE. HL CONTAINS THE KS 
7: CURRENT CURSOR POSITION. 7 


BC=64; HL=HL+BC;/*ADD 64 TO CURRENT POS; x</ 
L=(A=L OCOH) ;/“*THEN CLEAR LOWER 6 BITS*/ 
A=T; 
CALL CUPDATESCURSOR] ; 

/* SET CURRENT LINE = NEW CURSOR POS*/ 
A=T; HL=C€ CURRENTSLINEY) ; 
CALL (GETS INDEX]; 
HL={ CURSORI]+BC; 
BC=DE; DE=HL; 
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CALL [GETSVALUE] ; 

DE=BC+1; 

CALL (STORESVALUE]) ; “*CURRENTSL INE=CURSOR*/ 
END TERMINATESCL; 


MISSCMD: PROCEDURE; 
ARNE RK ROR HE BR I EE OK OS OES HEE KE RE KM EE KO NS OR OK OK SE RE OK OE EK ANE OE KK KZ 
/* CHECK TO SEE IF THIS INPUT CAN BE ACCEPTED. *x*/ 
/* IF SO, SET TERMSSTATUS TO NISSCMDSREADY AND x/ 
/* SET MCP BIT IN TASK CONTROL TABLE TO ENSURE x*/ 
7* MCP 1S CALLED BY THE MNCNITOR TO PROCESS THIS x7 
/* MTS COMMAND. *K/ 
ARR NK OR EE NE Re SK OR OG He NE OS HE SHG OK OE OG OK NS EE SK EE HE OK SK SE SK OK SK OK OK EK RK KEK / 
CALL ACCEPTS INPUT; 
IF ¢€A=>>A) CY THEN 
DO; /% ACCEPT INPUT BUFFER ey 
MC HL) =( A= MNTSSCMDSREADY]); 
B=0; C=CA=T); 
HL=(TCTSSTATUS!] + BC; 
M( HL) =¢( AP>MCHL) N 2); 
CALL TERMINATESCL; 
END; 
END MTSSCMD; 


CARRIAGESRETURN: PROCEDURE; 

SRR RRR RAR IR NE MK RE OR HR TOK AR IRE OR EE IR EK BE OK OR SIE OK SE OR EZ 
7* USER HAS TERMINATE CURRENT LINE. CHECK TO */ 
7x SEE IF NEW INPUT BUFFER CAN BE ACCEPTED. IF */ 


7* SO, SET TERNSSTATUS TO INPUTSWAITING AND */ 
7* TERMINATE CURRENT LINE. 7 


A BEARERS AR RR IE HE CR AE AE HOR BR NS IK TIS OK BE OS ENG BG IS AS OE OK TIS A COR HK NETIC NE IE HEISE OOK Z 
CALL ACCEPTS INPUT; 
IF (A=>>A) CY THEN 
DO; /* ACCEPT INPUT BUFFER 5 
Mi HL) =CA=C INPUTSWAITING)) ; 
CALL TERMINATESCL; 
END; 
END CARRIAGESRETURN ; 


CHARSDPELETE: PROCEDURE; 
A RRR TER RAB A HE RE RR OR ETS AR ARE OK IK OR RA OE OS OK OBE GK OB OB ROK SAS RE OK ICR SZ 


/7* CHECK TO ENSURE THAT CURRENT LINE IS NOT */ 
7* EMPTY. THEN DELETE THE PREVIOUSLY ENTERED */ 
7* CHAR. */ 
7* INPUT: DE -— CURSOR OFFSET ADDRESS */ 


SRR RR KR RE TR IK RIK AE RK OR ORE ENE ORE SR OE OK OR OC RK ESE KR RE RR CR OK / 
CALL CHECKSLEFTSMARGIN; 
IF €A=>>A) CY THEN 


DO; /* CURRENT LINE EMPTY */ 
A=T; 
CALL (CSENDSBEEP] ; 
END 
ELSE 
DO; 7 DELETE CHAR */ 


A=T; CALL [{ CHECKSCURSOR ;y 
A=T; HL=(€ CURSOR] ; 
CALL (GETS INDESA] ;s 
CALL DELETESCHAR; 
END; 
END CHARSDELETE; 


LINESDELETE: PROCEDURE; 

SERRE RKB BE RRR TER RR AE OK IS HS ORK KE EE RR OE KZ 
/* CHECK TO ENSURE THAT CURRENT LINE IS NOT eH 
4* EMPTY. IF NOT, THEN DELETE THE CURRENT LINE. */ 
7 INPUT: DE - CURSOR ADDRESS OFFSET eH 
A RRR RRB RK BRAKE A RR RK RE OR AR RR REE OR RE OE OR EAE EK OK RK KE EZ 
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CALL CHECKSLEFTSMARGIN; 
IF (A=>>A) CY THEN 


DO; 7/* CURRENT LINE EMPTY K/ 
A=T; 
CALL [SENDSBEEP] ; 
END 
ELSE 
DO; 


A=T; CALL [CHECKSCURSOR]; A=0; 
DO WHILE (A=>>A) ![CY; 
A=T; HL=CCURSCR] ; 
CALL [CGETSINDEX]; “* GET CURSOR OFFSET x-7 
CALL DELETESCHAR; 
A=T; HL=CCURSCR] ; 
CALL [GETS INDEX] ; 
CALL CHECKSLEFTSMARGIN; 
END; 
END; 
END LINESDELETE; 


CAPITAL: ERCCEDURE; 
A RRR SK KR NS OK OK KOK OK AS OE OK NS SK RS NE OK NE OK NS HE RE OR ISO NE OR OK EE EE OK EE RE OK / 
/* SET OR CLEAR THIS TERMINALS CAPITALIZE FLAG. *,7 
A MEME RRR KR iS OK 38 EK NS SOK OR HE 8 BS Oi 24S 25 OK EK OK OK CC OS IR ORK OK OK AC NS OK OR RK OS / 
B=0; C=(A=T); HL=CCAPITALIZEJ+BC; 
MC HL)= (A=MCHL) NX1); 
END CAPITAL: 


CLEARSSCREEN: PROCEDUPE; 


OTR TR RAR US RE OBS OTR OK OS I SOK OR OK RSS AG RS KK ER RS NS RR OK NE AS NR IER NEE OK RRR RZ 


“7* CLEARS THE S12 BYTE BISPLAY BUFFER AND eS 
“* REINITIALIZES THE DISPLAY POINTERS. */ 
“* INPUT: UL - CURSOR ADDRESS *K/ 
SRA RK RK IER RE TR TSR OR OK OS BE OK EK ENE SK OR OE KK OE OK OK EK EK OK KK 
CALL CLEARSPTR; 7* REINITIALIZE DISPLAY */ 
A=T; HL=(CURRENTSLINE];“* PTRS AND TERMINAL */ 
CALL (GETSINDEA) ; “/%* STATUS. * 


CALL CLEARSPTR; 
A=T; HL=€ NEXTSCHAR] ; 
CALL [GETSINDEN) ; 
CALL CLEARSPTR; 
A=T; CALL [GETSTERMSSTATUS] ; 
MC HL) =( A=€ IBUFFSEMPTY]) ; 
S% CLEAR THE DISPLAY */ 
A=T; HL=CDISPLAYSBASE] ; 
CALL (CETSINDEX] ; 
CALL CGETSVALUE); /’xX DISPLAYSBASE PTR IN HL*/ 
BC=6; DE=512; “* SETUP INPUT PARAMETERS FOR x*/ 


/%* [TBLANKSDISPLAY! PROC */ 
CALL [BLANKSDISPLAY] : 
/% RESET SWAPSPOS TO CURSORSCHAR */ 
B=90; C=CA=T) ; 
HL=CSWAPSPOS})+BC; 


M¢( HL) =( A=€ CURSORSCHAR]) ; 
END CLEARSSCREEN; 


CURSORSLEFT: PROCEDURE; 
ARERR RE RK RR OR RK EHS OK OK EK RK REE ER ENE OK IK NEE ER RR RO RR EK Z 
“* MOVES THE CURRENT CURSOR POSITION BACK OWE. */ 
7* CHECKS TO ENSURE THAT CURSOR IS NOT ALREADY x*/ 
/* AT THE LEFT MARGIN OF CURRENT LINE. */ 
7* INPUT: DE - CURSOR ADDRESS * 7 
SRR RR AK ERR RR IK EE OK A ORO OE IC OR EK OE OK OR OR OK OK OR NER EE TR OS RK KZ 
CALL CHECKSLEFTSMARGIN; 
PeeGs-- 7A) cr THEN 


DQ; /%* AT LEFT MARGIN; SEND BEEP */ 
A=T; 
CALL [SENDSBEFP]; 
END 
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ELSE 
DO; “7* DECREMENT CURSOR “er 
A=T; CALL [CHECKSCURSOR]; 
A=T; HL=(C CURSOR] ; 
CALL (GETS INDEX] ; 
CALL (GETSVALUE] ; 


HL=8L~1!1; 
CALL [CSTORESVALUE] ; 
END; 


END CURSORSLErT; 


CURSORSRIGHT: PROCEDURE; 
ZAR RR OR AC AS OS BIR OK OAS OAS IS OK FS OB IS OS OES FS AAS OR AE OK FS AS OS OR AS IS I EB OR EB AS AR IE BR TIS IE OR AR OR OR RK ZH 
/%* MOVE THE CURRENT CURSOR POSITION FORWARD ONE. */ 
/* INPUT: DE ~ CURSOR ADDRESS */ 
AS RRR RRR KK RB RR RK RK HK RE TK ROK KE OK RK OK A ROK OK RR KKK KK 7 

A=T; CALL [CHECKSCURSOR] ; 

A=T; HL={€ CURSOR] ; 

CALL (GETSINDEX] ; 

CALL C(GETSVALUE]I ; 

ML=HL+ 1 ; 7x SETUP NEW CURSOR POS *7 

A=T; CALL C UPDATESCURSOR] ; 

END CURSORSRIGHT; 


CHECKSCASE: PROCEDURE; 
A RRR RRR RR RR ROR TK OG 2K RR OK BK TR OR AS OR OR IE OK OR OR OS ON OS BR OK EE OK ROK KKK / 
7* USES A CASE STATEMENT. INSTEAD OF ’ELSE DBO’ x/ 
/* TQ CHECK FOR THE LAST FOUR KEY COMMANDS. IF x7 
/* NOT, RESPONSE !S SET TO FALSE. CNOTE: CASE *x/ 
7k STNT MNUST BE USED TO GET AROUND ML6BO'S PARSE */7 
7* STACK OVERFLOW, CAUSED BY TOO MANY ’IF THEN x/ 
7* ELSE DO’ STMTS. */ 
/* INPUT: De ~ CURSOR ADDRESS Id 
A RR BRS ROK RK BE AS RS OS AS RS OK IE HE DK IE OK OR TE OK OFS HE OK OK OR OK TICK OE OR EK ES OR AE OK ROK KZ 
H=0; L=(A=CHAR-OAIH); /“* SETUP CASE OFFSET x/ 
IF (A: 3@) PLUS (A::4) MINUS THEN 
DO CASE HL; 
CALL CAPITAL; 
CALL CURSORSLEFT; 
CALL CURSORSRIGHT; 
DO; HL=DE; CALL CLEARSSCREEN; END; 
END 
ELSE 
RESPONSE=C A=CIALSEI) ; 
END CHECKSCASE; 


A RRR RR RRR OK RRR RK OK BR OR RE TR OK GR TR OR IE EK OE OR OR AR OK OR EM RE KK RRR KKK 7 


7x START OF KEYSCOMMAND PROCESSING YP 
A RRR RRR RH KE RNR RR KE RRR RR ER AC AS OB OK RR ERE RR AE OK EZ 
T=A; CHAR=(A=C); /“* GET INPUT PARAMETERS */ 
RESPONSE=( A=€ TRUE] ) ; 7% INITIALIZE RESPONSE */ 
A=T; HL=(€ CURSOR] ; 7* GETSINDEX PARAMETERS */ 
CALL [GETSINDEX) ; “* GET CURSOR OFFSET ADDRESS*/ 
IF (A=CHAR-CMTSSCMD]) ZERO THEN 7* NTS CMD */ 


CALL NTSScMp; 


ELSE DO; 
IF CA=CHAR-CCRI]) ZERO THEN 7x CARRIAGE RETURN */ 
CALL CARRIAGESRETURN 


ELSE DO; 
IF CASCHAR-C CHARSDELETE]) ZERO THEN 
CALL CHARSDELETE 1x CHAR DELETE CMD x*/ 
ELSE DO; 
IF (A=CHAR~-C LINESDELETE]) ZERO THEN 
CALL LINESDELETE 7k DELETE LINE CMD x*/ 
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ELSE 


CALL CHECKSCASE; 7% USE CASE STHT TO */ 

“7* CHECK FOR REMAINING x7 

7* KEY COMMANDS. *S 

END; END; END; “/* END OF ELSE DO’S */ 
A= RESPONSE; 


END KEYSCOMMAND; 


TERNSINPUTSCNTL: PROCEDURE; 

A RRR RAR OK RE A RSE TS IK OE OK I OK I OE A TI IE TOK OR OR OK ENG IE OR RIE OR RK / 
7* CONVERTS THE INPUT MATRIX CODE TO ASCII; CHECKS */ 
/* FOR CAPIALIZATION AND CONVERTS LOWER TO UPPER KS 


7* CASE LETTERS IF REQUIRED; CHECKS FOR MTS KEY */ 
7* COMMANDS; iF NOT A KEY CMD THEN THE CHAR IS */ 
7* DISPLAY AT THE TERMINAL AND CURSOR INCREMENTED. <x/ 
7% INPUT: C ~- MATRIX CODE */ 
om E - TERMINAL NUMBER */ 
7* CALLED BY: TERMINALSHLDR CINTERRUPT MOD) */ 


SRR RR NOR RR RR TR OR TC OR OK OR TIC IS OE IC EK HE OR ORK KOR IR COR SE RZ 
DECLARE (CHAR,T) BYTE, 


T=CA=E) ; 7* SAVE TERMINAL NUMBER KS 


7* CONVERT MATRIX CODE TO ASCII */7 
B=0; HL=CASCII]+BC; 
CHAN= ( A= NCHL) D ; 
7k CHECK FOR CAPITALIZATION x*/ 
D=9; WL={CAPITALTZE]+DE; 
IF (CA=MNCHUL); A::0) ?ZERO CA=CiIAR-G1H) PLUS 
& (A=CHAR-?VEH) MINUS THEN 7* CONVERT TO */ 
CHAR=( A=CHAR-20H); /“* UPPER CASE LETTER */7 


/* CHECK FOR ANY KEY COMMANDS */ 
C=( A=CHAR); A=T; 
CALL KEYSCOMMAND; 


7/* A REG RETURNED TRUE IF KEY CMD FOUND */7 
IF (A=>>A) CY THEN /* DISPLAY CHAR <7 
DO; 
A=T; CALL f CHECKSCURSOR} ; 
A=T; HL=({ CURSOR] ; 
CALL ({GETSINDEX]; /“* GET CURSOR OFFSET */ 
CALL C[GETSDISPLAYSADDR] ; 
M(€ HL) = ¢ A=CHAR) ; 
7# UPDATE CURSOR POSITION BY ONE. BC WAS*- 
7* RETURNED FROM CETSDISPLAYSADDR SET */ 


“7* TO THE VALUE OF CURSOR. 7 
HL=BCtr1; 
A=T; CALL ( UPDATESCURSOR] ; 


END; 
END TERMS INPUTSCNTL; 


EOF 

ARERR IK AMHR KEEN ERROR ER RR ENTE TER RENEE MIEN IR IEEE SR / 
yams TERMINAL INTERFACE SYSTEM FUNCTIONS RR, 
A RAE RE RE ER ES OK OR OR OK RE NS EE SK ENS SK OK OR AE 2S OR OK OE OK OK ROK OK OK OK ESR OK OR OK ROK NE OR EK RK ER HZ 


(MACRO IBUFFSEMPTY "9° J 
(MACRO MTSSCMDSREADY °OFOH’ | 
(MACRO CR °ODH’ =] 
(MACRO LF °OAH’ J 
ARR HR RK KR EK SE ER NE OR KER HE ERK OK OK OK SRS AE ES KE EE OR SEK EEE / 


PREREEK INTERNAL AND EXTERNAL LINKAGE MACROS = *kk:%Kx/ 
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CINT GS TB) CCB := 6] CTB := 1060H)] 


[MACRO TASK *"MCT HEX GB + 3SE90HI)’] 
[MACRO MTSSMESSAGE ‘°CHEX TB + O11€H]’ J 
[MACRO SIZESMESSAGE °CHEX TB + OI1CFH]’ 1] 
CMACRO CURSOR "CT HEX TB + @1D5H)]’ J 
C(MACRO CURRENTSLINE ’°CHEX TB + OIDDHI’ J] 
CMACRO NEXTSCHAR *THEX TB + O1ESHI’ J 
(MACRO ENDS [BUFF *LHEX TB + OLEDH]° J 
[MACRO COMPARESPTRS °CHEX TB + 0213H]’ 1] 
(MACRO CONVERTSNUMBRSTOSASCII ’CHEX TB + 0231H]’ J) 
C[MACRO GETS INDEX *CHEX TB + @24CH)’ 1] 
CNACRO GETSVALUE *CHEX TB + 0259H]’ J] 
[MACRO STORESVALUE ’CHEX TB + 6262H]’ 1] 
C(MACRO MOVESBYTES Minia 1b + 26H” | 
[MACRO SWAPSCURSOR ’CHEX TB + O27EH]’ 1] 
(MACRO BLANKSDISPLAY "CHEX TB + @©2A3H)°) 
(MACRO CHECKSCURSOR ¢ ‘’CHEX TB + O2D00] "3 
CMACRO GETSDISPLAYSADDR °C HEX TB + 62B7H]’ ] 
CHMACRO GETSSTATUSSADDR ’CHEX TB + O2LCI) *] 
(MACRO GETSTERMSSTATUS ‘’CHEX TB + O2F9H]"] 
CMACKRO UPDATESCURSOR “THE TB + -<635€2H1* 1 


BLINKSCURSCRS: PROCEDURE; 


ARETE TE RR RR EE ASR RE IAS NS SECO SAS OS SIS SE TK OE SK ORB ENS OR IE OS IS SIS EIS ROK OH OE OR OK OK OR NE OK SER ER KZ 
7x SWAPS THE CURRENT CONTENTS OF CURSOR( I) WITH ce 
7x SWAPSPOSCI) FOR EACH TERNINAL C1l=0 TO 3). */ 
/* CALLED BY: TIMERSHDLR CINTERRUPT NOD?) k/ 


A TERK RR RR ER ORK 2 SK ORE eK OK TS OE A SES HS KK OR IE OE OK 2 2A OIE IK IS TIS OK OR OK OK OK OE OK OK SK EK OK ORK KZ 

DECLARE I BYTE; 

I=(A=3); 

REPEAT; 
HL={CURSOR]I ; 
CALL iGETS INDEX]; 
CALL CGETSDISPLAYSADDR] ; 
A=1I; CALL [SWAPSCURSOR] ; 
I=(A=[I-1) ; 

UNTIL (A::@) MINUS; 

END BLINKSCURSORS; 


CLEARSSTATUSSLINE: PROCEDURE; 
A RRR RAR RR ER TE KE BK ARR OR IK KR OR ROR RR OK RE OK IE TR RK EE KK / 


7& CLEARS THE STATUS LINE OF THE SPECIFIED TERMINAL. */ 


7* INPUT: A - TERMINAL NUMBER */ 
7* CALLED BY: MYSSIPL (MONITOR MOD); */ 
7 QUIT (SERVICE MOD) ; */ 


A RRA AE AR AR EK AE OE BR OR OK RK RK AE EK AE EE AE OSES OK AS AK A HE ARK REE OK EE Z 
CALL ( GETSSTATUSSADDR]I ; 
BC=0; DE=64; /* SETUP PARAMETERS FOR *K/ 
CALL [ BLANKSDISPLAY]; /“* BLANKSDISPLAY PROC k/ 
END CLEARSSTATUSSLINE; 


MTSSMSG: PROCEDURE; 

SRR RR RKB AA RE TRE IR ORE ER NORE IR RE IR KR ME IR ER SER IEE OR REE KZ 
7* CONTROLS THE MTS MESSAGE DISPLAY FIELD ON THE *e 
7x STATUS LINE OF THE TERMINAL SPECIFIED BY ‘TASK’. x/ 
7s THE MTS MESSAGE FIELD STARTS AT POSITION 48 AND */ 
7* UTILIZES THE REMAINING 16 BYTES FOR NTS MESSAGES */ 


“/* (SEE MTSSMESSAGE DATA). */ 
7* INPUT: E - MTS MESSAGE NUMBER. KS 
7x CALLED BY: MTS (SERVICE MOD) ; *7 
as MINISDISK CMONITOR MOD) ; sk / 
7% RECOVER (MONITOR MOD) ; */ 
7k BUMPSTASK (MONITOR MCD) ; */ 


ATR RAE RR RK EK RKB AEE HE RE HK OK OK EK EK RE OK OE OK OK OK TIER OK OR OK OIE OK OR OR ROK RSE OK OR OE OK Z 
DECLARE MSGNO BYTE; 
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MSGNO= ( A=E) ; 
A= [TASK]; 
CALL (GHTSSTATUSSADDR] ; 


BC=48; /* MTS MSG FIELD OFFSET FROM*/ 


/x STATUS BASE ADDRESS 
A=MSGNG; E=4; CY=90; 


REPEAT; /* COMPUTE OFFSET INTO THE 
A=<<¢A;3 7*& NITSSMESSAGE DATA VECTOR 

UNTIL (E=E-1) ZERO; 

DE= ( HL= HL+BC) ; 7* SETUP PARANETERS FOR 

B=0; C=A; “* CMOVESBYTES] PROC 

HL={ MTSSMESSAGEIJ+BC; 

BCc=16; CALL [MOVESBYTES] ; 7* DISPLAY MSG 


END MTSSMSG; 


SIZESNSG: PROCEDURE; 


A 


*/ 


ae 
“ 


*7 
*/ 


*/ 


A MRR RK RRR KR KK KK ASK ROK KK EK OK BOK KK EE SIS OK OB AS OK ORK OK OK TS RE RSS EK EE ZH 


/%* CONTROLS THE DISPLAY OF THE CURRENT MEMORY SIZE 
/* ON THE STATUS LINE CF THE TERMINAL SPECIFIED BY 


7* 'TASK’. THE SIZE MESSAGE STARTS AT POSITION 40 
“7* AND HAS THE GENERAL FORMAT: 

L% 490 47 

7, re 

A NRK MTS B.C. 16K MTS 

PR een nen 

/* WHERE 

738 "NAR’ IS THE CURRENT MEMORY SWAP SIZE 

1 ALLCCATED TO THAT TERMINAL USER. 


7% Toe RANGE IS FROM 0 TO 46K. THE [NPUT MEMORY 

7* SIZE NUMBER IS CONVERTED TO ASCII FOR DISPLAY. 
* INPUT: A - MEMORY SIZE 

7% CALLED BY: SIZE (SERVICE MOD) ; 

fx LOGIN (SERVICE MOD) ; 


*K/ 
*/ 
*/ 
a 
*K/ 
*K/ 
*K/ 
*K/ 
* / 
*K ZH 
le 
Pid 
HZ 
*K/ 
*/ 
*/ 


17 TR ABE ABR ABR ME ROR NE AS ROR IE SIE O18 OK AR OER SIR OK IE OR I AS OR OK OR AAS OFS OBR OS TIE IS IR ORS I OK OS OK OR 2S OES HE OE 2 IE AR HE OR 


DECLARE MEMSSIZE BYTE; 
MENSS [Zil= A; 
A= { TASK]; 
CALL (GETSSTATUSSADDR] ; 


BC=40; /* SIZE MSG FIELD OFFSET */ 
HL=HL+BC; /* HLESTARTING ADDRESS OF *K/ 
7* SIZE MSG FIELD ON STATUS */ 
“f*« LINE. ee 
A=MEMSS IZE; 
CALL [CONVERTSNUMBRSTOSASCII]; 
iM¢ HL) =( A=B); HBHL=HL+1; /* DISPLAY MEMORY SIZE *x/ 
MC HL)=( A=C); DE=HL+1; “7* SETUP PARAMETERS *K/ 
HL={SIZESMESSAGE] ;syW “7k FOR (MOVESBYTES] PROC*/ 
BC=6; CALL [MOVESBYTES];/7*% DISPLAY REST OF */ 
7% SIZE MESSAGE *K/ 


END SIZESMSG; 


STATUSSMSG: PROCEDUPE; 


A RRR BR RK RK RE EK RIK KR OR RR ROKK OR EK AR ACK OK ORI AE EE EE SR OK MOOK OK / 
7* CONTROLS THE STATUS DISPLAY, POSITIONS © THRU 39 x*/ 


/* OF THE TERMINAL STATUS LINE. IT HAS THE 
/* FOLLOWING GENERAL FORMAT: 


3 0 39 
i a a a a a ee ne nm we ae em 
Men A= NOr B= NOr C= NOr D= NOr E= NOrF= NOCr G= NOr H= NOr 
SR eee ee ee 
/* WHERE 

ae THE LETTER ON THE LEFT OF THE EQUAL SIGN 
ae SPECIFIES THE DRIVE. 

1% *NO’ IS THE DISK NUMBER (0-31). 

Pa *r’ IS AN OPTIONAL PARAMETER WHICH IS 

7 DISPLAYED WHEN THE ATTACHED DISK IS A 

Uae RESTRICTED (Cr) READ ONLY DISK. 


/*x THE TERMINAL IS SPECIFIED BY ’ TASK’. 
“* INPUT: A - ASCII CODE FOR RESTRICT (r), 
A OR BLANK (SPACE). 
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*/ 
*/ 
*/ 
7 
*/ 
k/ 
*/ 
*K/ 
KS 
*K/ 
7 
KS 
*K/ 
7 
KS 
*x/ 


ak B - DRIVE NUMBER (MUST BE CONVERTED TO <7 


1% A LETTER FOR DISPLAY). */ 
7% C - DISK NUMBER CRANCE @-S1; MUST BE oe 
1% CONVERTED TO ASCII FOR DISPLAY). */ 
/* CALLED BY: LOGIN (SERVICE MOD) ; */ 
A ATTACH (SERVICE MOD) ; */ 


AS RRRERERRRER RR RRR KKK RRR RK OR EK KR KER EE RK KOK MEK KK EES / 
DECLARE CRESTRICT, DRIVESLTR, DISKSNR)Y BYTE; 
/* GET INPUT PARAMETERS ae 
RESTRICT=A; DRIVESLTR=(CA=B); DISKSNR=(CA=C) ; 
A= ({TASK]; CALL [EGETSSTATUSSADDR] ; 
/%* COMPUTE THE APPROPRIATE STATUS ok 
/* BASE OFFSET TO DETERNINE WHERE a7 
/* TO DISPLAY THIS STATUS INFO Sd 
C-9; B=(A=DRIVESLTR) ; 
DO WHILE ¢(A::0) !ZERO; 


C=( A=C+5) ; 
B=(A=B-1); 
END; 
HL= HL+BC; /* SETUP ADDRESS FOR STATUS MSG. eA 
7* DISPLAY DRIVE LETTER 7 
MC HL) = ( A= DRIVESLTR+414H) ; 
HL=HL+1; 
/% DISPLAY EQUAL SIGN a 


MC HL) =( A='=7); 
HL=HL+1; A=DISKSNA; 
7% CONVERT AND DISPLAY DISK NUMBER */ 
CALL [ CONVERTSNUMBRSTOSASCITII; 
MCHL)=CA=B); HL=HL+1; 
MNCHL)=CA=C); HL=HL+1; 
7k DISPLAY RESTRICT OR BLANK BYTE eS 
M¢ HL) = ( A= RESTRICT) ; 
END STATUSSMSE; 


TERMINALSSTATUS: PROCEDURE; 

7 BERR HRT NC TE EO A RE AE IE RAS A IS IR AS SIR SPS IS AE OS OI OR OIG NI OIC IS IS OS 8 RR OS IS OPS OO OEE OBR OR OR ETE 
7% PROVIDES THE INTERFACE POINT FOR OTHER MTS SYSTEM*~ 
7* FUNCTIONS. RETRIEVES THE CURRENT TERMINAL STATUS */ 


“7* FOR THE TERMINAL SPECIFIED BY °*TASK’*. */ 
/* OUTPUT: A - SET TO THE TERMINAL STATUS (CEITHER = x*/ 
7% INPUTSWAITING; MYPSSsCMDSREADY; OR eS 
7% IBUFFSEMPTY) BY GETSTERNSSTATUS PROC. x/ 
7* CALLED BY: WRITESTERMINAL; MTSCSERVICE MOD) ; i 
fk READSTERMINAL; eS 
7% MTSSIPL CMONITOR MOD) ; KS 
A RRB RRR RK RKB AER EE RK RR STR CK OK SR SEK A RIOR KOK ERE SKK EK 
A=( TASK] ,; 


CALL (GETSTERMSSTATUS] ; 
END TERMINALSSTATUS ; 


READSTERMINAL: PROCEDURE; 
AS RRR RIE KEE HE KK EK SE IR ORK EK IKK KK OR KE A OE OK OK OK ER OK OK RK EK 
7* GETS THE NEAT CHAR FROM THE TERMINAL INPUT BUFFER*~ 


7* SPECIFIED BY *TASK’. */ 
7*x IT IS ASSUMED THAT THE CALLING PROCEDURE HAS */ 
7* CHECKED TERMINAL STATUS TO ENSURE iNPUT IS */ 
“* WAITING PRIOR TO CALLING READSTERMINAL. */ 
/* A TEST FOR END OF IBUFF IS MADE AND IF SO, A *S 


7* °“CR* CHAR IS RETURNED; THE TERMINAL STATUS I[S SET*- 
7* TO EMPTY; AND THE NEXTSCHAR PTR IS SET TO CURRENT*~/ 


7* LINE. */ 
/* IF NOT AT END OF IBUFF, THE NEXT CHAR IS RETURNED*/ 
Y* AND THE NEXTSCHAR PTR INCREMENTED. *S 
7x OUTPUT: A - CMNAR OR CR */ 
7* CALLED BY: MTS (SERVICE MOD); MTSSIPL (MONITOR) ;*/ 
om MONITCR (MONITOR MOD) ; 7 


RRA AC ER IR HE NE HE KE TC AR OK AC HIS ACK AS I IS BR OK A 21S IK IE ISK ICE HEC OG SRE OH SIS ICIS SIE IG OK EE ORK 
DECLARE CHAR BYTE; 
DECLARE PTR(2) BYTE; 


A= [TASK]; HL=€ NEXTSCHAR] ; 


CALL [{GETSINDEX] ; 7k DE=ADDR OF NEXTSCHAR PTR «7 
HL=( END3 IBUFF]+BC;/7x HL=ADDR OF ENDSIBUFF PTR */ 
CALL (CCOMNMPARESPTRS]; ~“* NEXTSCHAR=END3SIBUFF ?? *-7 
IF (A=>>A) CY THEN 
DO; 7x AT END OF IBUFF, SET rg 
7k NEXTSCHAR = CURRENTSLINE */ 
A= [TASK]; HL=(€CURRENTSLINE]; 
CALL (GETS INDEX] ; 
BC= ( HL=(€ NEXTSCHAR] +BC) ; 
CALL ( GETSVALUE] ; /* HL=CURRENTSLINE VALUEX/ 
DE=BC+1; 
CALL (STORESVALUE] ; 
7% UPDATE TERMINAL STATUS 7 
CALL TERMINALSSTATUS ; 7* RETURNS HLZADDR x7 
/% OF TERMSSTATUS. ee 
MC HL)=C A= (€ IBUFFSEMPTY]); 
ee RETURN ’CR’ TO CALLER */ 
CHAR=C A=(CR)); 
END 
ELSE “* NOT AT END OF IBUFF 7 
7* RETURN THE CHAR KS 
DO; 
A={ TASK]; HL=CNEXTSCHAR]) ; 
CALL (GETS INDER] ; fx GET AND SAVE 7 
PYT= HL: * NEXTSCHAR OFFSET a 
CALL ( GETSDISPLAYSADDR] ; 
CHAR=( A= HC HL) ); 73 RETURN CHAR *7 
7* JNCREMENT NEXTSCHAR 7 
DE=( HL=PTR+i) ; /%* SETUP {STORESVALUE] x/ 
HL=BC+1; % PARAMETERS ee 
CALL {[STORESVALUE] ; 
END; 
A=CHAR; /%* RETURN APPROPRIATE RESPONSE x/ 


END READSTERMINAL; 


WRITESTERMINAL: PROCEDURE; 


SRR RRR EK BRK ORR RKB OK KBE OK NER ROK OK EK OK KOR OR OR OK OR OE EK OS KOK HEE Ne EK KZ 
7%* DISPLAYS THE CHAR AT THE CURRENT CURSOR POSITION *-7 


7k OF THE TERMINAL SPECIFIED BY ’TASK’. IT CHECKS 
7* FOR TWO SPECIAL CHARACTERS WHICH AFFECT THE 

7* DISPLAY CURSGR POSITION. 

7% °CR’ RETURNS THE CURSOR TO Tue BEGINNING OF THE 


7% CURRENT DISPLAY LINE. °*LF’ MOVES THE CURSOR DOWN 


/* TO THE NEXT LINE. 

7* FOR ALL OTHER CHARACTERS, THE CHAR IS DISPLAYED 
7* AND THE CURSOR POSITION INCREMENTED. 

7* PRIOR TO OUTPUT, THE CURRENT CURSOR DISPLAY 


*/ 
*/ 
eH 
*/ 
KS 
*K/ 
7 
*/ 
*/ 


7x ADDRESS IS CHECKED TO ENSURE THAT THE CURSOR CHAR*/ 


7* IS SAVED. OUTPUT OF CHARACTERS IS DONE UNDER 
/* INTERRUPT LOCKOUT TO ENSURE THAT SWAPPING BY 
/7* BLINKSCURSORS PROC IS NOT DONE. 

7* SUBPROCEDURE: UPDATESPTRS; 

7k INPUT: E - ASCII CODE OF CHAR TO SE DISPLAYED 
7* CALLED BY: MTS (SERVICE MOD) ; 

Ak MTSSIPL CMONITOR NOD) ; 


*K/ 
*/ 
LZ 
* 7 
*/ 
*Z 
*/ 


A RR RRA RR BRE RR RE KR TK RR OR EEK RCE KR AEE AER AE RE OK OK OB KKK AB KK RIS EER KZ 


DECLARE CHAR BYTE; 
DECLARE SAVESCURSOR (2) BYTE; 


UPDATESPTRS: PRCCEDURE; 


A PRR RR AE RRR EE RE KR OK SK RE TRO BRR OK AEE OE OK OK AG AR EE OER OK OE ENE RE AE OR KE OR KOR 


7* AFTER TUE DISPLAY OF EACH CHAR THE CURRENT 


7* LINE PTR AND NEXT CHAR PTR ARE ALWAYS SET TO 


7% NEW CURSOR POSITION. ADDITIONALLY, THE 
“* TERMINAL’S STATUS IS SET TO IBUFF EMPTY. 


*/ 
K / 
*K/ 
7 


ARR REAR RR RMS AE ORB IE RE RI ERK RR RE ER RR OK ES ERNE SK NER KE KZ 


7% GET CURSOR POSITION 
A={ TASK]; EBL={CURSOR] ; 
CALL (CCETS INDEX] ; 


* 7 






/* SET CURRENTSLINE = CURSOR 7 
BC=( HL=[{ CURRENTSLINEJ+BC) ; 
CALL [GETSVALUE] ; /* HL= CURSOR VALUE */ 
DE=BC+1; 
CALL [STOGRESVALUE]; /“* CURRENTSLINE=CURSOR x/ 
SAVESCURSOR= HL; 
/* SET NEXTSCHAR = CURSOR */ 
A=( TASK]; HL=(NEXTSCHAR] ;s 
CALL [GETSINDEX] ; 
HL=SAVESCURSOR; DE=DE+t1; 
CALL [STCRESVALUE]; /7* NEXTSCHAP=CURSOR 7 
“7*& SET TERMINAL STATUS = EMPTY x7 
CALL TERMINALSSTATUS ;s 
M( HL) =¢€ A=C IBUFFSEMPTY]) ; 
END UPDATESPTRS; 


Fe ha oe 0a ks oa che he he ale oe 1 Reais ie Bo eae ale Te he oT ee Meals he ee he Ho cio ae os ae ae eee 
/* START OF WRITESTERNINAL PROCESSING 7 
Fa ele oe toe hei tere ayaa oP aie oie She 3 ot oi Ob oe O02 1 Se aie i er 9s SES ale See ie ote Sie Soe Sie Si Sie she oie ses / 


DISABLE; 

CHAR=(CA=E) ; 

A=( TASK]; CALL [ CHECKSCURSOR] ; 
A=€ TASK]; HWL=€ CURSOR] ; 

CALL [GETSINDEN] ; 

IF (A=CHAR-({CRI) ZERO THEN 


DO; /* CARRIAGE RETURN */ 

CALL (GETSVALUE] ; /* WL=CURSOR 7 

L=(A=L OCOH); 7% GET LEFT MARGIN “7 

END 

ELSE 

DO; 

IF (A=CHAR- [LFJ]) ZERO THEN 
DO; /* LINE FEED 7 
CALL (GETSVALUVUE] ; /x AL=CURSOR Pd 
BC=6¢; HL=HL+BC; 
END 

ELSE 7x DISPLAY CHAR ceed 
DO; 


SAVESCURSOR= EL; 

CALL CGETSDISPLAYSADDR] ; 
MC HL) = ( A= CHAR) ; 

DE= ( HL=SAVESCURSOR) ; 
CALL [ GETSVALUE! ; 


HL= HL+ 1; 7% INCREMENT CURSOR nS 
END; 
END; 
7% TL REG HOLDS REW CURSOR POSITION */ 
A= TASK]; CALL (€ UPDATESCURSOR] ;s 
ENABLE; 
7% UPDATE OTHER DISPLAY PTRS */ 


CALL UPDATESPTRS ; 
END WRITESTERMINAL; 


EOF 
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A RRRRRKK KKB HK KK AR KR RK RK RK KERR KKK ER ERR EK KK KKK KKK EEK 
f% * * %* * MTS COMMAND PROCESSOR (MCP) x * XK KS 
A RAR RR EE ER RRR RR RR EK ERK I RE EK RIE SRK OR EK RK AE OK OR ERR KOR RK 


19F AH: 
MCP: PROCEDURE; 


STREETER NE A ER SO AR CR IRR OS KC BR ER A AE I OR OS TI AR OR IS IE AS AC 2 TIS IS OIE OE OE OR OR OS OR ROK 
/* MCP IS AN INDEPENDENT MODULE OF THE MICROCCMPUTER 
TIMESHARED SYSTEM (MTS) DEVELOPED FOR THE NPS 
MICROCOMPUTER LABORATORY SYCOR 44090 SYSTEM. 
THIS MODULE IS CALLED BY THE MTS MONITOR TO 
PROCESS ANY SYSTEM COMMANDS ENTERED THROUGH THE 
TERMINAL INTERFACE BY THE USER. WTS COMMANDS ARE 
VALIDATED BY MCP AND THEN SENT TO MTS SERVICE 
CALL CONTROL MODULE FOR FURTHER PROCESSING. 
MCP IS WRITTEN IN PLN FOR TWO REASONS: 
(1) TO UTILITZE A HIGH-LEVEL LANGUAGE TO 
FACILITATE THE DESIGN AND DEBUGGING TASK 
DURING THE DEVELOPPIENT OF MCP. 
(2) TO PROVIDE A PLM PROGRAM WHICH ILLUSTRATES 
THE FUNCTION CALL REQUIREMENTS 
FOR ANY USER PROGRAM TO INTERFACE WITH NTS. 


THERE ARE TWO PRIMARY DIFFERENCES BETWEEN TEE MCP 
INTERFACE WITH NTS AND A USER PROCRAIYMTS INTERFACE. 
(1) ONE IS THE ENTRY PORT. THE MTS INTERFACE PORT 
FOR USER PROGRAMS IS 2000H. THE ENTRY PORT 
FOR NCP IS iFO@H. 
(2) THE OTHER DIFFERENCE [S THAT USER PROGRAMS 
DO NOT HAVE TO BE CONCERNED WITH SAVING 
AND RESTORING THE MTS MONITOR STACKPTR. 


MCP WILL PROCESS THE rOLLOWING SYSTEM COMMANDS 
ENTERED AT THE TERMINAL BY THE USER: 


COMMAND PARAMETERS 
LOGIN <DISK NUMBER /< KEY> 
QUIT NONE 


ATTACH <DRIVE LETTER> <DISK NUMBER /< KEY> 
PROTECT <DISK NUMBEP /< KEY? 

RESTRICT <DISK NUMBEY /”< KEY 

UNPROTECT <DISK NUMBERD /< KEY 

SIZE <MEMORY SIZE> 


WHERE 

«DRIVE LETTERO- DESIGNATES A VIRTUAL FLOPPY DISK 
DRIVE TO BE ONE OF THE LETTERS 
A THRU i. 
SPECIFIES A VIRTUAL FLOPPY DISK 
NUMBER FROM 0-31. 
<DISK NUMBER SPECIFIES A DISK NUMBER FROM @-31. 
/< KEY> - SPECIFIES A 4 CHARACTER KEY CODE. 
«MEMORY SIZE> SPECIFIES THE SIZE OF THE USER 
; PROGRAM AREA. 


<DISK NUMBEF 


*K/ ; 
A RRR RR HR KK KR RK OK KK KR NE RE RR RK OK ROKK OK ROK EK RK KK REE KS 


PRR TR RTS TRE OB TRAC IE OR IE OEE AR OE I OR OI 8S OIE AR OI RG OIE AR PE OR OS OS EE OR DI ES OEE EE OR OR ORE ZH 
f* * * *® MCP LITERAL AND DATA DECLARATIONS * * xX/ 
A RARER RCRA ER AE OK CR OR NE OR ORE HC OK ARE OS OK 7 ARC OK NS OR OK OE KE OE OK CE OK AC ORR OK KOK OK / 


/*& * * * %# MCP LITERAL DECLARATIONS * *® *® *® X/ 


DECLARE 
LIT LITERALLY ’LITERALLY’ , 
MTS LIT °1FQ@0H’ ,“* INTERNAL MTS PORT */ 


A) 
pao 
a) 


MTSSCMDSREADY LIT °OFOH’ , 


INVALIDSCND LIT 2h’ ’ 
TRUE LIT ’°OFFH’, 
FALSE jC ea 5 ee ' 
CR LIT *@6DH’ , 
LF LIT ’@AH’ , 
TAB Li O° ’ 


MAXSCBUFFSSIZE LIT ’64’  , 


TERMINALSSTATUS LIT ’8’ 
READSTERMINAL | Ut Bee oe ae 
WRITESTERMINAL LIT °’ 10’ 


READSMTSSCMD Lito. =)" » 7* INTERNAL MTS CMD */ 
ATTACH LIT °9° , “*MNTS SYSTEM CMD NUMBERS*/ 
NTSSISG bY Ui Dis ’ 
LOGIN Sit 2’ ’ 
PROTECT Pits 73. : 
QUIT bit. 4° ; 
RESTRICT EAT 3" ’ 
S1IZi LIT ’°’6”’ ’ 
UNPROTECT | Ud aaa ta ; 


fk * %* *« * NCP GLOBAL DECLARATIONS * Kk RK K KS 


DECLARE 
CBUFF (64) BYTE, 7“* CMD BUFFY FOR MTS COMMAND */ 
CBUFFSLENGTH BYTE, 7* NUMBER OF CHARS IN CBUFF x7 
CEUrFSPTR BYTE; “* PTS TO NEXT CHAR IN CBUFF 
TO BE PROCESSED */ 
DECLARE 
CHAR BYTE, 7* USED FOR CHAR MANIPULATION */ 
VALUE (2) BYTE, “* VECTOR FOR CONVERTING NUMBERS */ 


PARAMETERS(6) BYTE; /“*PARANETERS FOR MTS SYSTEM CALLS*/ 


A RRR RR NSE EK EE RK KR EE NE NS EMS TE ROR AS OK OK SE IS Sik OE OK 1S OR RR EE KE AEE EE OK ER EIS OR KK KZ 
fe * * * %*® MTS INTERFACE PROCEDURES * *® * * = */ 
A TRO TR KR RAS RK ER KR RRS HS GR AG OK OR HE SK OK OB HS A OE OK TIS TRIE OOS KOR ENS TE NS OK OK OK OE OK OE ROK OK KH 


ARR TR RRR RAR ER IR REE AR ASO OE IS OR OS RR ME OR IS ICR OE AS 2 IS OE OE OR IC AR OK OE OPE SS IS HE OR OK 7 

“* MTS1i- PROVIDES MTS INTERFACE FOR FUNCTIONS 
WHICH DO NOT REQUIRE A RETURN VALUE. 
"F’ CONTAINS THE MIS CMD NUMBER; °A’ CONTAINS 
THE PARAMETER OR ADDRESS TO LIST OF PARAMETERS. 
CALLED BY: ERRORSMSG; SENDSMTSSCND 

*/ 

MTS1: PROCEDURE CF,A); 

DECLARE F BYTE, A ADDRESS; 

GO TO MTS; 

END MTS1; 


A RRR KR RRB RR IE RR RR KE IK NER BRK SR OR IER MEK EEK EE IE EE EK KZ 
1% MTS2- PROVIDES NTS INTERFACE FOR FUNCTIONS 
WHICH REQUIRE A RETURNED VALUE. 
"F’ AND ’A’ ARE THE SAME AS IN MTS1. 
CALLED BY: READSCHAR; SENDSMTSSCMD 
*/ 
MTS2: PROCEDURE (F,A) BYTE; 
DECLARE F BYTE, 4 ADDRESS; 
GO TO NTS; 
END MTS2; 


A RRIK RR EK RAE RAE NE RR EK RR EE OK OK TOK OK EK REE EEK EE A EK Z 
SR ow oF Ck *® ck MCP PRIMITIVE FROCEDURES * * *) ¥*/ 
PRAIA RTE K ROR OK RK AR HS ACE OK OR KK EK OK AR OA ISO AE OR EK ORK OR OK OR ICE OK OR IK IRR EK / 


READSCHAR: PROCEDURE BYTE; 





RETURN MTS2CREADSMTSSCMD, 90); 
END READSCHAR; 


CBUFFSNOTSEMPTY: PROCEDURE BYTE; 
RETURN CBUFFSPTR < CBUFFSLENGTH; 
END CBUFISNOTSEM TY; 


DEBLANK: PROCEDURE; 

DO WHILE (CBUrFSPTR < CBUFFSLENGTH) AND 
(CBUFFC(CBUFFSPTR) = ’ ’) OR 
(CBUFFCCBUFFSPTR) = TAB); 

CBUFFSPTR = CBUFFSPTR + 1; 
END; 
END DEBLANK; 


ERRORSMSG: PROCEDURE; 
CALL MTSICMTSSNSG, INVALIDSCMD) ; 
GOTO FINI; 
END ERRGRSMSG; 


0. Ha hs a ote tn AR che As o0s vs ofa ots oFe ony Senate ons cfs nfs os one ote Ps ois ote ode Pe ia cos oo ake oe oie ote ore one aie oas aeons oe oe Meck eect ate ee A, 
7% FILLSCBUFF - CHECK CURRENT TERMINAL STATUS FOR 
MTS COMMAND. IF NOT, EXIT; OTHERWISE FILL THE 
COMMAND BUFFER WITH THE NTS COMMAND. 
CALLED BY: NCP MAIN CONTROL 
*7 
FILLSCBUFF: PROCEDURE; 
Ir fMls26 TERHINALSSTATUS, 0) =HTSSCMDSREADY THEN 
bo; 
CBUFFSPTR, CBUFFSLENGTH @; 
DO WHILE (CBUFFSLENGTH < MAZSCBUFFSSTZE) AND 
(( CBUFF( CBUFFSLENGTH) : = READSCHAR) <>CR) ; 
CBUFFSLENGTHO = CSUFFSLENGTI+1; 
END; 


END; 
END FILLSCBUFF; 


INITIALIZE: PROCEDURE; 
DECLARE I BYTE; 
CO I=0 TO 5; 
PARAMETERS( 1) = OFFH; 
END; 
VALUE( 9), VALUZ( 1) = 0; 
END INITIALIZE; 


IRR ARR AR ROR RR RE OR RAR IR OB RR ASB RR AR AR REE KE ETE AR OR BE BR ISR I AS ROR OE OK ORE AR RO EE 
KS 
LETTER: PROCEDURE (C) BYTE; 
DECLARE C BYTE; 
RETURN C >= °A’ AND C <= °2Z’; 
END LETTER; 


A RRR RE RR RR RE OR ER ORK OR ER BR RK KR EK KER SE A A OK OR OK OK OK / 
CR NUMBER - RETURN TRUE IF °C’ IS A NUMBER. 
CALLED BY: GETSNUMBER; GETSPARAMETERS ; 
ATTACHSCMD; SIZESCMD 
*7 
NUMBER: PROCEDURE (C) BYTE; 
DECLARE C BYTE; 
RETURN C >= °@’ AND C <= °9°; 
END NUMBER; 


ARR RAR RR KR RK EK OR RS KR OR OE OK ORK ROR ME ES TK OK OK OR KE NO OK OR OR KK OK OK KH 
1% READSCMDSLINE - READS CHAR FROM COMMAND BUFFER; 
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CONVERTS LETTERS FROM LOWER TO UPPER CASE, 
IF REQUIRED. 
CALLED BY: GETSKEY; GETSNUMBER; GETSPARAMETERS ; 
ATTACHSCMD; SIZESCMD; MCP MAIN CONTROL 
READSCMDSLINE: PROCEDURE BYTE; 
DECLARE C BYTE; 


IF (C:=CBUFF(CEUFFSPTR)) >= 61H /7* LOWER CASE A *K/ 
AND C <= VAH THEN 7k LOWER CASE Z 7 
C = C AND SOFH; /* CONVERT TO UPPER CASE */ 
CBUFFSPTR = CBUFFSPTR+1; 
RETURN C; 


END READSCNDSLINE; 


AS RRR RRA KR BRR RRR BR RK ROR OR OR RE EK KR KK RT ROR OB OK RRR RK RK RK KZ 
7% SCANSTOSBLANK - SCAN TO NEXT BLANK OR TAB CHAR. 
CALLED BY: MCP MAIN CONTROL 
KS 
SCANSTOSBLANK: PROCEDURE; 
DO WHILE (CBUFFSPTR< CBUFFSLENGTH) AND 
(CBUFF( CBUFFSPTR)<>” °) AND 
(CBUFF(CBUFFSPTR) <> TAB) ; 
CBUFFSPTR = CBUFFSPTR+1; 
END; 
<ND SCANSTOSBLANK; 


A RRR RK RRR HR MK RR RRR NEE RR RR RR IS OR OK OE KK EOE ER OR OK OR OB OE OK ORK OK KE NS A KOK KK 7 
7% SENDSMTSSCMD - °CMD’ CONTAINS THE MTS CMD NUMBER 
AND ’PARAMETER’ CONTAINS THE ACTUAL PARAMETER 
OR THE ADDRESS OF THE ACTUAL PARAMETER LIST. 

TWO MTS SYSTEM CALLS ARE MADE: 
C1) MYs2 - PROCESS SYSTEM CMD, WHICH RETURNS 
A RESPONSE. 
(2) MYSi - DISPLAY RESPONSE AT USER TERMINAL. 
*K/ 
SENDSMTSSCMD: PROCEDURE (CMD,PARAMETER) ; 
DECLARE CHD BYTE, PARANETER ADDRESS; 
CALL MISItCMTSSHSG, MTS2¢°CMD, PARAMETER) ) ; 
END SENDSMTSSCMD ; 


ROR RRR KR RR TK RRA KR OK OK KE OK KEK OK RK KK OK RRR OK ORK IS OK OK OR SOK ENE AR OK EE OK KK OR EK 7 
fe ® * *® * UTILITY PRCCEDURES *®* *®* *® * % *®% */ 
A RR BRR RB RK RR KK BK ER I OR OR OK oH OK KR RK RR AR RK OE TS KOR OR KOR MO RK OK RK RK Z 


ARR RR RRS RRS ROKR ROK OK OK NG RR OK OR NEE OR IE OK OK OE OR NE OK OK A IE OR OK OK IE RR OK KOK EK Z 

A CONVERTSVALUE - CONVERT ASCII CODE IN ’ VALUE’ 
TO APPROPRIATE BINARY VALUE. THE RANGE OF VALUES 
TO BE CONVERTED ARE FROM 0-31. 
CALLED BY: GETSNUMBER; 

*7 

CONVERTSVALUE: PROCEDURE BYTE; 

IF VALUE( 1) = 0 THEN /“*xONLY A SINCLE DIGIT TO CONVERT:*7 
RETURN VALUE( 6) -361]; 

ELSE 7x TwO DIGITS TO CONVERT */ 
RETURN ( ( VALUE( 0) -30H) *10+( VALUE( 1)-30H) ) ; 

END CONVERTSVALUE; 


PREETI RHE RRC TE OE IR AAR RIE AR AR AR OR ORR AR ASK FR IR AS A OK AR OK FR OR TR OE CR OR RRR ROK OS OK EEE KZ 
A GETSKEY - GET THE <KEY> PARAMETER, IF ENTERED; 
STORE KEY IN THE PARAMETER LIST STARTING AT I. 
CALLED BY: ATTACHSCMD; GETSPARAMETERS ; 
*/7 
GETSKEY: PROCEDURE (1); 
DECLARE I[ BYTE; 


IF CBUFFSNOTSEMPTY THEN J*NEXT CHAR MUST BE ’-7’ K/ 
DO; 
IF (CHAR: =READSCMDSLINE) = °’/’ THEN 


DO WHILE (1<6) AND CBUFFSNOTSEMPTY; 
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PARAMETERS ( 1) =READSCMDSLINE; 
I=I+1; 
END; 
ELSE /% */* TS USED TO INDICATE */ 
CALL ERRORSMSG; /7* <KEY AND IS REQUIRED. xv 
END; 
END GETSKEY; 


SRR RHR NHK RRM BR MER ARNE NS OK OR TS I IS ORT IS OE SSK OK LK RE EK HG ROK RK KR KR KZ 
7k GETSNUMBER - GET <DISK NUMBER PARAMETER AND 
CONVERT IT FROM ASCII TO BINARY. STORE THE 
RESULT IN PARAMETER LIST AT ’1’. UPON ENTRY, 
"CHAR’ HOLDS THE FIRST DIGIT. 
CALLED BY: ATTACHSCHD; GETSPARAMETERS; 
* 7H 
GETSNUMBER: PROCEDURE (1); 
DECLARE I BYTE; 
VALUE( 0) = CHAR; 
IF CBUFFSNOTSEMPTY AND 
NUMBIER( CHAR: = READSCMDSLINE) 
THEN 7x TWO DIGIT DISK NUMBER 7 
VALUEC 1) CHAR; 
PARAMETERS(C 1) CONVERTSVALUL; 
END GETSNUMBER; 


Phe hee ote he ot rote Pa 0G chs fe ots af ots ob 2ie afc He he Pe oR fe Xe ote oe aie Ne oye te ate 2h ais One Stes RS ARAL eae ae 
7k GETSPARAIPETERS - USED TO GET THE <DISK NUMBER 
AND <KEY> PARANETEPRS. GENERATES CRROR MSG IF 
NEXT CHAR IS NOT A NUMBER. 
CALLED BY: LOGINSCMND; GCETSREQUITREDSPARAIMETERS ; 
a 
GETSPARAMETERS: PROCEDURE: 
IF NUMBER( CHAR: =READSCMDSLINE) THEN 
DO; 
CALL GETSNUMBER( 9?) ; 
CALL DEBLANK; 
CALL GETSKEY( 1); 
END; 
ELSE 
CALL ERRORSMSG; 
END GETSPARAMETERS ; 


A RRR RE RRR BRK KR RR BR RE OR KR AE KR NE OR SK AER ARK OR OR EO OK OK OK OK OB OE OK OR OE HE OS OR EK EK / 
7k GETSREQUIREDSPARAMETERS - GETS THE <DISK NUMBER 
AND <KEY> PARAMETERS FOR THOSE SYSTLM CMDS FOR 
WHICH THESE PARAMETERS ARE REQUIRED (NOT 
OPTIONAL). GENERATES ERROR MSG IF PARANETERS 
ARE NOT THERE. 
CALLED BY: PROTECTSCMD; RESTRICTSCMND; UNPROTECTSCMD 
KZ 
GETSREQUIREDGPARAMETERS: PROCEDURE; 
IF CBUrrSNOTSEMPTY TEEN 
CALL GETSPARAMETERS ; 
ELSE 
CALL ERRORSMSG; 
END GETSREQUIREDSPARAMETERS ; 


A RRR RRR RRR KK RR EE EK OK IK ERK KE EK OK OR OK EE OK EK AER OR KOK OK EEK KEE Z 
Se 8 * * *® *® SYSTEM CMD PROCEDURES * * *X* * x/ 
A TROBE KK AOR TR ASE RK RIE KOR KR ER RK KI HK TK ROK EK TOR AE TE OR EK OR ROK OE KK KZ 


A RARER RK KK EER RRR OE KOK RR AE OK OK KE OK OR KR RK KE OK OR SIE AER ROK EER KOK RS Z 
7% ATTACHSCMD - 
FORM: ATTACH <DRIVE LTR <DISK NR /< KEY? 
ALL THE PARAMETERS ARE OPTIONAL, HOWEVER 
<KEY> CAN NOT APPEAR WITHOUT IT’S ASSOCIATED 
<DISK NUMBER. WHEN PARAMETERS ARE ENTERED 






THEY NUST BE IN THE ORDER INDICATED. 
CALLED BY: MCP MAIN CONTROL 
*/ 
ATTACHSCMD: PROCEDURE; 
IF CBUFFSNOTSEMPTY THEN 


DO; 

CHAR = READSCMDSLINE; 

IF LETTER( CHAR) THEN “/* <DRIVE LETTER se 
DO; 
PARAMETERS( 0) =CHAR~41H;/7*CONVERT TO BINARY*/ 
CALL DEBLANK; 
IF CBUFFSNOTSEMPTY THEN /’* HORE PARANETERS x/ 

CHAR = READSCMDSLINE; 

END; 

IF NUMBERC CHAR) THEN 73 <DISK NUNBEYPD 7 
BO; 
CALL GETSNUMBER( 1); 
CALL DEBLANK; 
CALL GETSKREY( 2) ; Za Ki 7, 
CALL DEBLANK; 
END; 

END; 


IF CBUFFSNOTSEMPTY THEN 

CALL ERRORSNSG; 
ELSE 

CALL SENDSHTSSCMD( ATTACH, . PARAMETERS) ; 
END ATTACHSCMD; 


A REAR SE ROR AR RK ORK NE AE IS OR OR OK RIS SR SOR TK OR OK OR OK OS IER SOR OK EE I OK OR IS ENE KK EER Z 
A LCGINSCMND - 
FORII: LOGIN <DISK NUMBER /< KEY> 
THE PARAMETERS ARE QPTI{ONAL BUT <KEY> CAN NOT 
APPEAR WITHOUT <DISK NUMBER. 
CALLED BY: MCP MAIN CONTROL 
7 
LOGINSCMND: PROCEDURE; 
IF CBUFFSNOTSEMPTY THEN 
CALL GETSPARAMETERS ; 
CALL SINDSNTSSCMD( LOGIN, . PARAMETERS) ; 
END LOGINSCMD; 


A HRM MER SOK NSTI BS BOR EIS OR NS SK OK EE OR EO EO OR KR OR NS HE AS OI OR NEO EE EK NS OR KOR ROK ER 
A PROTECTSCID - 
FORM: PROTECT <DISK NUMBER /< KEY> 
THE PARAMETERS ARE REQUIRED. 
CALLED BY: MCP MAIN CONTROL 
*K / 
PROTECTSCMD: PROCEDURE; 
CALL GETSREQUIREDSPARANETERS ; 
CALL SENDSIHTSSCMD( PROTECT, .PARAMETERS) ; 
END PROTECTSCID; 


A RRR AK ERK RARER EIR RR RR RK IR OR EK RR ROK ER ACR IR AE OK OR OR RZ 
lS QUITSCID - FORM: QUIT 
NO PARAMETERS. 
CALLED BY: MCP MAIN CONTROL 
eS 
QUITSCMD: PRCCEDURE; 
CALL SENDSMTSSCMD( QUIT, 9) ; 
END QUITSCMD: 


A RR RRR KEE RR NE AR AE TR KOK RR NS KE SE OR SIR CK EE EE 
A % RESTRICTSCND - 
FORM: RESTRICT <DISK NUMBER /< KEY> 
THE PARAMETERS ARE REQUIRED. 
CALLED BY: MCP MAIN CONTROL 
KS 
RESTRICTSCMD: PROCEDURE; 
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CALL GETSREQUIREDSPARAMETERS ; 
CALL SENDSMTSSCMD( RESTRICT, . PARAMETERS) ; 
END RESTRICTSCMD; 


ARR RR RRR RS OR RE RR TR RE OK OK OK OB TR IS OR TE RE OBO OK KR OK OK ORR OR OR OR TE OK OK OK ASR OR SKK KZ 


A UNPROTECTSCHD - 
FORM: UNPROTECT <DISK NUTBER /< KEY> 
THE PARAMETERS ARE REQUIRED. 
CALLED BY: MCP MAIN CONTROL 

*/ 

UNPROTECTSCMND: PROCEDURE; 

CALL GETSREQUIREDSPARAMETERS ; 

CALL SENDSMTSSCMD( UNPROTECT, . PARAMETERS) ; 

END UNPROTECTSCID; 


S RRR RRR RRR RK OR RE OK RIOR ROK RE OR RS RR KR OR NS KS Hh SI OS HK NE SK eR ORK KZ 


AR SIZESCMD - 
FORM: SIZE <MEMORY SIZE> 
THE PARAMETER IS REQUIRED. 
CALLED BY: MCP MAIN CONTROL 
7 
SIZESCMD: PROCEDURE; 
Ir CBUrFSHNOTSEMPTY THEN 


DQ; 

IF NUMBER( CHAR: =READSCMDSLINE) THEN 
DO; 7* GET HEMNORY SIZE PARAMETER 
CALL GETSNUMBER( 6) ; 
CALL SENDSMTSSCID(SIiZE, PARAMETERS(CO)); 
END; 

ELSE /* PARAMETER MUST BE NUMBER 
CALL ERRORSMNSG; /“* SPECIFYING MEMORY SIZE 

END; 

ELSE /* CBUFF EMPTY - ERROR 
CALL ERRORSMSG; 7x PARAHETER REGUIRED 


END SIZESCMD; 


A 


*/ 
I 


K/ 


hd 


A TERR RR TE TK IE OR SE RR OK OR OK NE KR OK OR OK AK OK MRE SE OR SE OK 2K OK OK OE OE OR OK OR AE NE IE OE ROR EK EZ 


fe x & MTS COMMAND PROCESSOR (MCP) MAIN CONTROL * 
/* = * CALLED BY: MTS MONITOR MODULE * 


ZH 
*/ 


A PRR RR ARR RAS TS ER RE ER RIE RAE SR KEK RK OK OR OK OK SE RK REE NS OR NSE NE HC IS RE IE OR KE AER OR SZ 


DECLARE STACK (26) ADDRESS,OLDSP ADDRESS; 


OLDSP = STACKPTR; 7* SAVE MTS STACK POINTER 
STACKPTR = .STACKC(LENGTH(STACK)); /“* SETUP MCP STACKPTR 
CALL INITIALIZE; 7* INITIALIZE DATA STRUCTURES 
GALL FILLSCBUFYF: /* GET MTS COMMAND 
CALL DEBLANK:; /* SCAN TO FIRST NONBLANK CHAR 
IF CBUFFSNGTSEMPTY THEN -x PRGCESS CMD BUFFER 

DO; 


CHAR = READSCMDSLINE;/* GET FIRST LETTER OF CMD 
CALL SCANSTOSBLANK; 7* SCAN TO NEXT BLANK, BECAUSE 


eH 
KS 


*/ 
a 
*K/ 
*/ 


*/ 


ONLY THE FIRST LETTER IS USED 


TO DETERMINE THE Crp 
CALL DEBLANK; 


IF CHAR = ’A’ THEN /* ATTACH 
CALL ATTACHSCMD; 
ELSE 
DO; 
IF CHAR = ’°L* THEN “x LOGIN 
CALL LOGINSCMD; 
ELSE 
DO; 
1F €HAR = °P° THEN 7* PROTECT 
CALL PROTECTSCMD; 
ELSE 
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oe 


= 


*k/ 


re 






END; 
FINI: 


STACKPTR 
END MCP; 


EOF 


DO; 
IF CHAR = ’@Q’ THEN /* QUIT > Pee 
CALL QUITSCMD; 


ELSE 
DO; 
IF CHAR = °’R’ THEN /* RESTRICT */ 
CALL RESTRICTSCMD; 
ELSE 
DO; 
IF CHAR=’S’ THEN vx SIZE */ 
CALL SIZESCMD; 
ELSE 
DO; 
IF CHAR=’U° THEN-*UNPROTECT#*~ 
CALL UNPROTECTSCMD; 
ELSE 
CALL ERRORSMSG; 
END; 
END; 
END; 
END; 
END; 
END; 
= OLDSP; 7x RESTORE HTS HONITOR STACKPTR oe 
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